r - 在R中用多边形（）对线下的区域进行着色

Question

我正在尝试使用多边形（）填充线条下方的区域，但该区域被填充在上方。

我一直在寻找过去类似的问题，但他们要么使用 predict 或 dnorm 等解决方案，这似乎不适合我的情况。

这是我的代码：

# Playfair's chart
library("HistData")
data(Arbuthnot)
data("Wheat")
data("Wheat.monarchs")

with(Wheat, {
  plot(x = Year, y = Wheat, type = "s",
       ylim = c(0, 105), ylab = "Price of the Quarter of Wheat",
       panel.first = grid(col=gray(.9), lty = 1))
  lines(Year, Wages, col = "red", lwd = 2)
})

polygon(c(min(Wheat$Year), Wheat$Year, max(Wheat$Year)),
        c(0, Wheat$Wages, 0),
        col = "gray")

这就是结果。

可能是一个菜鸟问题，但仍然不知道该怎么做。我知道我可以尝试使用 ggplot2，但我想先尝试使用标准图形。

Answer 1

好像你差不多明白了。工资中有缺失值（过去 3 年）。如果在绘制多边形之前删除这些，您的代码将起作用。

with(Wheat[!is.na(Wheat$Wages),],
     polygon(c(min(Year), Year, max(Year)), c(0, Wages, 0),col = "gray"))