曲線下の陰影部分

Question

私はRの曲線の下の領域を陰にしようとしています。それは正しくできません。理由はわかりません。曲線は、プロットが

# Plot x vs. y as a line graph 
plot(x, y, type="l") 

私は、x> = 1250は

polygon(c(x[x>=1250], max(x)), c(y[x==max(x)], y[x>=1250]), col="red") 

が、ここだある曲線の下の色にしようとするために使用しているコードです

# Define the Mean and Stdev 
mean=1152 
sd=84 

# Create x and y to be plotted 
# x is a sequence of numbers shifted to the mean with the width of sd. 
# The sequence x includes enough values to show +/-3.5 standard deviations in the data set. 
# y is a normal distribution for x 
x <- seq(-3.5,3.5,length=100)*sd + mean 
y <- dnorm(x,mean,sd) 

によって定義されます私が得ている結果 カーブの下の部分を正しく色付けするにはどうすればx> = 1250

Answer 1

カーブのx、y点をポリゴンで追跡し、x = 1250、y = 0の点に戻って形状を完成させる必要があります。最後の垂直エッジは自動的に描画されます。これは、ポリゴンが開始点に戻ってシェイプを閉じるためです。

polygon(c(x[x>=1250], 1250), c(y[x>=1250],0), col="red")