r - type='s' でプロットした行の下を埋めるにはどうすればよいですか

Question

私がプロットしたステップ関数ラインの下の領域を塗りつぶしたいと思いplot(X, type='s')ますpolygon。

set.seed(1);y = abs(rnorm(10))
plot(y,ylim=c(0,max(y)), type="p",pch=24)
lines(y, type='s')
abline(h=0)

カーブの下と上をグレーでペイントしたいとしますy=0

Answer 1

基本的なLatticeソリューションであり、優れた HongOoi ソリューションの適応です。

set.seed(1)
xx <- c(1:10)
yy <- abs(rnorm(10))

library(lattice)
xyplot(yy~xx,type='s',
       panel=function(x,y,...){
         panel.xyplot(x,y,...)
         y2 <- rep(y, each=2)
         y2 <- y2[-length(y2)]
         x2 <- rep(x, each=2)[-1]
         x3 <- c(min(x2), x2, max(x2))
         y3 <- c(0, y2, 0)
         panel.polygon(x3, y3,col=rgb(1, 0, 0,0.5), border=NA)

       })