用阴影区域绘制直方图并在R中没有公共边框

Question

我想绘制带有阴影区域（2个X值之间）的直方图，但没有垂直常见线条（断点之间的线条）和abline。我有以下示例代码：

x<-rnorm(n=100, m=0, sd=1) 
h<- hist(x, breaks=50) 
cuts<- cut(h$breaks, c(-1, 1)) 
plot(h, col="green"[cuts]) 
abline(v=mean(x), lty=2, lwd=2)` 

非常感谢你，提前。

Answer 1

试试这个（从你的h创建如下）：

np = length(h$breaks) 
x = c(h$breaks[1],rep(h$breaks[-c(1,np)],rep(2,(np-2))), h$breaks[np]) 
y=rep(h$counts,rep(2,length(h$counts))) 

现在x和y是 “天际线” 的坐标。试试这个：

plot(h) 
lines(x,y, col="red", lwd=2) 

因此，对于你的情节：

# make the plot 
plot(h) 
# fill the area with green fill and green outline 
plot(h, col="green"[cuts], border="green"[cuts],add=TRUE) 
# restore the skyline 
lines(x,y) 
abline(v=mean(x), lty=2, lwd=2) 

，并提供：

Answer 2

我用一个更粗糙的方法。我创建了两个直方图，然后我重叠它们。

h <- hist(x, breaks=50, plot=FALSE) 
cuts <- cut(h$breaks, c(-1, 1)) 
plot(h$breaks, c(h$counts,0) ,type="s",col="black", lwd=2) 
plot(h, col="gray"[cuts], lty="blank", add=T) 
abline(v=mean(x), lty=2, lwd=2)