Как я могу построить гистограмму, гистограмму, частотную кривую и кривую Ogive в R для этой проблемы?

Question

Др. Тиллман - декан школы бизнеса Socastee University. Он желает подготовить отчет, показывающий, сколько часов в неделю студенты проводят за учебой. Он выбирает случайную выборку из 30 студентов и определяет количество часов, которые каждый студент изучал на прошлой неделе. 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

Я пробовал гистограмму с использованием кода 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)

Но я не мог закодировать "кривую частоты" и "кривую оживления". Как я могу запрограммировать их в R?

Спасибо!

Answer 1

Вы можете получить данные о частоте из гистограммы и огива, отсортировав значения:

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)

Накопительный