r - 没有垂直线的直方图

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