plot陰影の付いたヒストグラムで一般的な枠線がないR

Question

斜線の領域（2つのX値の間）を使用しているが、垂直共通線（ブレーク間の線）とアブラインなしのヒストグラムを描画しようとしている。私は次のコード例を持っています：

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

を私はずっと、粗なアプローチを使用していました。 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)