x <- seq(0.5, 0.9, length = 400)
y <- dnorm(x,0.7,0.0458)
plot(x, y, type="l", yaxt="n",ann=FALSE,bty="n", xaxt="n")
axis(1, at=seq(0.5,0.9,by=0.1), labels=c("","",0.7, 0.8, 0.9) )
mtext("Proportions", 1, at=0.9, line=2)
xx=c(0.8,seq(0.8,0.9,length=100),0.9)
yy= c(0,dnorm(seq(0.8,0.9,length=100),0.7,0.0458),0)
polygon(xx, yy, col = "gray", border = NA)
コードを使用して適切なグラフ (graph1.jpg) を取得します。graph1.jpg の 2 行目を作成して、graph1.jpg を graph2.jpg に変更するにはどうすればよいですか?
これはgraph1.jpgです。
これはgraph2.jpgです。
