曲线 R 下的阴影面积

shaded area under curve R

我正在尝试绘制曲线下方的阴影区域,但阴影区域位于曲线上方。谁能告诉我我的代码有什么问题吗?

x=seq(0,30)
y1=exp(-0.1*x)
plot(x,y1,type="l",lwd=2,col="chocolate1")
polygon(x,y1, density = 5, angle = 45,col="chocolate1")

你可能想要这样的东西:

polygon(c(min(x),x),c(min(y1),y1), density = 5, angle = 45,col="chocolate1")