绘制R中*y = sin(x)*下的*阴影*区域

Question

我想绘制阴影之间的区域Y = SIN(X)和Y = 0在[0,PI]× R中你能举一些例子吗？

通过阴影,我的意思是该区域可着色,最好是半透明.

感谢致敬!

Answer 1

看？多边形:

x <- seq(0,pi,length.out=100)
y <- sin(x)

plot(x,y,type="l")
polygon(x,y,col="grey")