r - 对于这个问题，如何在 R 中构建直方图、条形图、频率曲线和 Ogive 曲线？

Question

Tillman 博士是 Socastee 大学商学院院长。他希望准备一份报告，显示学生每周学习的小时数。他随机抽取 30 名学生作为样本，并确定每个学生上周学习的小时数。
15.0，23.7，19.7，15.4，18.3，23.0，14.2，20.8，20.8，20.5，20.7，17.4，18.6，12.9，20.9，20.3，13.7，21.4，21.4，18.3，18.3，29.8，29.8，17.1，17.1，18.9 33.8、23.2、12.9、27.1、16.6

我使用 R 代码尝试了直方图，如下所示：

v <- c(15.0, 23.7, 19.7, 15.4, 18.3, 23.0, 14.2, 20.8, 13.5, 20.7, 17.4, 18.6, 12.9, 20.3, 13.7, 21.4, 18.3, 29.8, 17.1, 18.9, 10.3, 26.1, 15.7, 14.0, 17.8, 33.8, 23.2, 12.9, 27.1, 16.6)
hist(v)

我也试过这样的条形图：

v <- c(15.0, 23.7, 19.7, 15.4, 18.3, 23.0, 14.2, 20.8, 13.5, 20.7, 17.4, 18.6, 12.9, 20.3, 13.7, 21.4, 18.3, 29.8, 17.1, 18.9, 10.3, 26.1, 15.7, 14.0, 17.8, 33.8, 23.2, 12.9, 27.1, 16.6)
barplot(v)

但我无法为“频率曲线”和“Ogive 曲线”编码。我如何在 R 中为这些代码编写代码？

谢谢！

Answer 1

您可以通过对值进行排序来从直方图和 ogive 中获取频率数据：

out <- hist(v, breaks=8)
plot(out$mids, out$counts, xlab="Hours", ylab="Freqency", type="l")
v.srt <- sort(v)
# Cumulative Frequency
plot(v.srt, cumsum(v.srt), xlab="Hours", ylab="Cumulative Frequency", type="l")
# Cumulative proportion
plot(v.srt, cumsum(v.srt)/sum(v.srt), xlab="Hours", ylab="Cumulative Frequency", type="l")
abline(h=1, lty=2)