ggplot2 を使用して複数のリボンをグラフに追加し、陰影付きの領域にラベルを付けようとしています。たとえば、正規分布のグラフを生成し、特定の値より上および特定の値より下のすべてをシェーディングする (両方のテールをシェーディングする) コードを作成しようとしているとします。
これは私がこれまでに持っているものです:
library(ggplot2)
x<-seq(-3,3,length=100)
y1<-dnorm(x,mean=0,sd=1);
df<-data.frame(x,y1)
qplot(x,y1,data=df, geom="line")+geom_ribbon(data=subset(df,x > 2),
aes(ymax=y1),ymin=0, fill="red", colour=NA, alpha=0.5)
+geom_ribbon(data=subset(df,x < -2),
aes(ymax=y1),ymin=0, fill="red", colour=NA, alpha=0.5)
このコードは右尾をシェーディングしますが、左尾はシェーディングしません。(スタック交換では写真を追加できません)
では、同じ写真のもう一方の尾にシェーディングを追加するにはどうすればよいでしょうか? 同様に、両方の陰影部分にラベルを付けるにはどうすればよいですか?