Как я могу наложить частотный многоугольник поверх гистограммы в R, используя линии?

Question

Я новичок в R и RStudio, и я пытаюсь сделать многоугольник частоты поверх гистограммы, используя набор данных "cars".

attach(cars)
hist(speed)
lines(speed, lwd=2, col = "royalblue")

Это вывод Я получаю.

Что мне нужно, так это то, что точки правильно отображаются на вершине гистограммы. Я видел этот, использующий графики , но я не могу использовать его в своем коде.

Это вывод, который мне нужен (это пример)

Answer 1

Попробуйте

par(mfrow=c(2,2))
hist(speed)
lines(speed, lwd=2, col = "royalblue")

Кроме того, вы можете сделать все это одновременно в ggplot2. Но мне нужен образец данных и ваш скрипт.

Лучший

Answer 2

hist() имеет скрытый вывод, который вы можете получить по назначению. Затем введите lines().

h <- hist(x, col=5)
lines(x=c(0, h$mids, tail(h$mids, 1) + el(diff(h$mids))), y=c(0, h$counts, 0), lwd=2)

---

Данные:

set.seed(22522)
x <- rpois(50, 6)