r - 如何在R中绘制时间序列数据，根据因子数据改变背景？

Question

假设我有一些时间序列数据，如下所示:

df <- data.frame(Month=seq(1,12),
                 Value = rnorm(12,0,1),
                 Season = c('Winter', 'Winter', 'Spring',
                            'Spring', 'Spring', 'Summer',
                            'Summer', 'Summer', 'Fall',
                            'Fall', 'Fall', 'Winter'))

我想绘制随时间变化的值(value)并显示它与季节的关系。绘制值很容易，例如:

ggplot(data, aes(Month, Value)) + geom_line()

在 ggplot 或基础图形中:

plot(Value~Month, data=df, type='l')

我想做的是强制叠加一个因素。我想根据 x 轴上的月份更改背景颜色。所以，在我的例子中，左边的 1/6 是冬天的白色，然后向右移动的下一个三分之一是 Spring 的黄色，然后下一个三分之一是夏天的红色，依此类推，直到最右边的 1/12 又是白色.

对于时间序列数据来说，这些似乎应该是简单易行的事情，但我在任何图形包中都找不到有关如何执行此操作的任何帮助。任何建议或见解将不胜感激!

Answer 1

在基本 R 中，您可以执行以下操作:

plot(Value~Month, type="n")
rect(df$Month-0.5, min(df$Value), df$Month+0.5, max(df$Value), col=df$Season, lty=0)
lines(Value~Month, data=df, type='l', col="orange", lwd=2)

并为可怕的基色方案道歉，我将把它放在这里来说明:

要在 ggplot2 中执行相同的操作，您可以执行以下操作:

ggplot(df, aes(Month, Value, Season)) + 
  geom_rect(aes(NULL, NULL, 
    xmin=Month-0.5, xmax=Month+0.5, 
    ymin=min(Value), ymax=max(Value), 
    fill=Season
  )) + 
  geom_line()

产生以下结果: