在成对时间序列R上使用ggplot2刻面网格

这里的ggplot2新手

我试图使用

ggplot2

生成下面给出的样本数据的时间序列。下面的短代码没有给出我想要的

ggplot（dat，aes（x=年份，y=数据，fill=期间，
组=交互（周期、季节）+
几何线（）
分面网格（季节，刻度=“自由”）

你可以看到这些线条看起来很笨拙。如何为每个季节一起绘制

cu

和

fu

？对于

cu

使用

red

颜色，对于

fu

使用蓝色

dat=structure(list(period = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("cu", "fu"), class = "factor"), 
        season = structure(c(2L, 2L, 2L, 2L, 4L, 4L, 4L, 4L, 1L, 
        1L, 1L, 1L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 4L, 4L, 4L, 4L, 
        1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L), .Label = c("DJF", "JJA", 
        "MAM", "SON"), class = "factor"), month = structure(c(7L, 
        6L, 2L, 7L, 12L, 11L, 10L, 12L, 3L, 5L, 4L, 3L, 8L, 1L, 9L, 
        8L, 7L, 6L, 2L, 7L, 12L, 11L, 10L, 12L, 3L, 5L, 4L, 3L, 8L, 
        1L, 9L, 8L), .Label = c("april", "august", "dec", "feb", 
        "jan", "july", "june", "march", "may", "nov", "oct", "sep"
        ), class = "factor"), year = c(2001L, 2001L, 2001L, 2002L, 
        2001L, 2001L, 2001L, 2002L, 2001L, 2001L, 2001L, 2002L, 2001L, 
        2001L, 2001L, 2002L, 2001L, 2001L, 2001L, 2002L, 2001L, 2001L, 
        2001L, 2002L, 2001L, 2001L, 2001L, 2002L, 2001L, 2001L, 2001L, 
        2002L), data = c(84.08969137, 76.4948428, 18.35492802, 101.8821712, 
        24.21773903, 16.44881361, 19.57283027, 48.27623315, 8.572824549, 
        12.97601394, 11.50496081, 15.14899058, 13.96396375, 27.21030149, 
        36.1606234, 23.35430348, 95.77643784, 94.84972642, 47.26900009, 
        2.385978093, 21.48062239, 24.67779645, 20.07044416, 43.09234771, 
        13.28295078, 19.27189857, 15.24661793, 21.75991334, 19.38239851, 
        39.93109491, 38.54500325, 33.77559647)), .Names = c("period", 
    "season", "month", "year", "data"), class = "data.frame", row.names = c(NA, 
    -32L))

---

谢谢你的建议。

我会做如下事情：

library(ggplot2)
ggplot(dat,aes(x=
                 as.Date(sprintf("%s-%s-01",year,month),
                         "%Y-%b-%d"),

                         y=data,group=period,color=period)) +
  geom_line()+facet_grid(season ~ ., scales="free") +
  xlab("time")

事实上，我正在创建一个定期日期，并仅按时段分组

---

为什么要使用

填充

而不是

颜色

<代码>几何图形线忽略

填充

太棒了！正是我想要的。