没有垂直线的直方图

Question

当我创建直方图时，它看起来很像这样：

set.seed(1)
x <- 1:100
y <- x + rnorm(50)
y=round(y)
hist(y)

有没有办法让直方图看起来像这样？我只能得到一个带有箱子的直方图，这对我的情节来说并不需要。

我不想要黑色垃圾箱，我实际上只想要蓝色，绿色和红色线条。 stackoverflow能指向正确的方向吗？

Answer 1

将直方图放在一个对象中，并使用type =“s”来获得逐步图：

x <- rnorm(1000)
y <- hist(x)
plot(y$breaks,
      c(y$counts,0)
   ,type="s",col="blue")

给出：

Answer 2

如果你想保留直方图的（最终）颜色，你可以停用边框并自己添加到顶部。

x <- rnorm(1000)
h <- hist(x, col="royalblue", border=NA, freq = T)

lines(rep(h$breaks, each=2)[-c(1,2*length(h$breaks))], 
      rep(h$counts, each=2), lwd=2)

# replace h$counts by h$density if freq=F