如何在 R ggplot 中设置每月时间序列的时间间隔？

Question

我的数据是这样的

  dep_delay   date
1  47         2013-01-01
2  1          2013-01-01
3  1          2013-01-01
...
36 4          2013-01-02
37 5          2013-01-02
38 11         2013-01-02
...
911   4       2013-05-15
912   1       2013-05-15
...
3009  17      2013-12-30
3010  28      2013-12-30

我运行此代码以获得这样的折线图。

df %>% group_by(date) %>%
  summarise(dep_delay= mean(dep_delay)) %>%
  ggplot() +
  aes(x=date, y= dep_delay) +
# scale_x_date(labels = lbls, breaks = brks) +
  geom_line()

我想在 x 轴下显示所有月份，如“一月”、“二月”、..、“十二月”，而不仅仅是“2013 年一月”、“2013 年四月”、“2013 年七月”、“2013 年十月” ' 和 '2014 年 1 月'。

我试图添加 scale_x_date(labels = lbls, breaks = brks)

和

brks <- df$date[seq(1, unique(month(df$date), 12))]
lbls <- lubridate::month(brks)

这不按预期工作。

Answer 1

您可以在scale_x_date中使用 arguments date_labels和date_breaks ：

df %>% 
  group_by(date) %>%
  summarise(dep_delay= mean(dep_delay)) %>%
  ggplot() +
  aes(x=date, y= dep_delay) +
  scale_x_date(date_labels = "%B", date_breaks = 'month') +
  geom_line()

---

使用的数据

df <- data.frame(date = seq(as.Date('2013-01-01'), by = 'day', length = 365),
                 dep_delay = rpois(365, 40))