网络购物消费者某月网购金额调查结果及分析
随机抽取了一批网络购物消费者,并对他们某月的网购金额进行了调查。以下是调查结果的数据表格及相应的源代码分析。
# 调查结果数据表格
消费者 <- c("消费者A", "消费者B", "消费者C", "消费者D", "消费者E")
网购金额 <- c(1000, 1500, 800, 1200, 2000)
调查结果 <- data.frame(消费者, 网购金额)
# 打印调查结果
print(调查结果)
# 计算平均网购金额
平均金额 <- mean(网购金额)
print(paste("平均网购金额:", 平均金额))
# 计算最大网购金额
最大金额 <- max(网购金额)
print(paste("最大网购金额:", 最大金额))
# 计算最小网购金额
最小金额 <- min(网购金额)
print(paste("最小网购金额:", 最小金额))
# 计算网购金额的总和
总金额 <- sum(网购金额)
print(paste("网购金额总和:", 总金额))
根据以上代码,我们可以得到以下调查结果:
消费者 | 网购金额 |
---|---|
消费者A | 1000 | </