不带垂直线的直方图

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

​

​