如何使用GGPLOT2

Question

我一直在嘗試使用GGPLOT2以產生類似於該R圖形曲線的曲線樹蔭下的區域：

xv<-seq(0,4,0.01) 
yv<-dnorm(xv,2,0.5) 
plot(xv,yv,type="l") 
polygon(c(xv[xv<=1.5],1.5),c(yv[xv<=1.5],yv[xv==0]),col="grey") 

這是據我已經與GGPLOT2得到：

x<-seq(0.0,0.1699,0.0001) 
ytop<-dnorm(0.12,0.08,0.02) 
MyDF<-data.frame(x=x,y=dnorm(x,0.08,0.02)) 
p<-qplot(x=MyDF$x,y=MyDF$y,geom="line") 
p+geom_segment(aes(x=0.12,y=0,xend=0.12,yend=ytop)) 

我想陰影超過x = 0.12的尾部區域。我將如何使用ggplot或qplot來做到這一點？廣泛地說，如何在曲線下遮蔽任何子集，無論是尾巴，還是將兩個任意線劃分爲不同區域的任意線之間？

感謝您的任何建議。

Answer 1

創建你想要的區域的多邊形遮陽

#First subst the data and add the coordinates to make it shade to y = 0 
shade <- rbind(c(0.12,0), subset(MyDF, x > 0.12), c(MyDF[nrow(MyDF), "X"], 0)) 

#Then use this new data.frame with geom_polygon 
p + geom_segment(aes(x=0.12,y=0,xend=0.12,yend=ytop)) + 
    geom_polygon(data = shade, aes(x, y))