r - 将日期作为标签添加到 ggplot facet_grid

Question

我有以下数据框:

  Date K Row Col Downward_solar_radiation Solar_radiation_calc
1 2014-01-02 1   1   1                        0                    0
2 2014-01-02 2   1   1                        0                    0
3 2014-01-02 3   1   1                        0                    0
4 2014-01-02 4   1   1                        0                    0
5 2014-01-02 5   1   1                        0                    0
6 2014-01-02 6   1   1                        0                    0

数据框包含 30 个不同日期的数据。我正在制作图表，每个日期一个，使用以下代码片段排列在网格中:

 df %>% 
    ggplot(aes(x=K)) + 
    geom_line(aes(y=Downward_solar_radiation), color="red") + 
    geom_line(aes(y=Solar_radiation_calc), color="blue")+
    facet_grid(Col~Row)

产生的情节是:

我想在每个绘图中添加一个文本来描述相应的日期并删除标签 1-6。

Answer 1

您可以使用 facet_wrap(~ Date, nrow=5) 代替 facet_grid。这样，您就不需要手动列和行标签，ggplot 会自动用相应的日期标记每个方面。 Documentation & examples