我试图在此图中遮蔽零线以上的区域：
这是我尝试的代码。
x <- c(seq(0.1, 0, length=50), seq(0,-0.2, length=50))
y <- c(0,seq(0.1,0, length=50),0)
plot(x, type = 'l')
abline(0,0)
polygon(x[1:52], y, col='skyblue')
但是，添加polygon时，我得到以下结果：
如何让阴影区域从左向右跨越（而不仅仅是垂直线）？
修改：显然，由于这是我的第一篇文章，我无法将图片上传到问题中。对不起。