R - ggplot:指定手动断点日期尺度

Question

我有一些时间序列数据，我想自定义x轴(日期)来显示我获得测量的日期标签，而不是每周/每月/每年定期休息。

样本数据:

dates <- as.Date("2011/01/01") + sample(0:365, 5, replace=F)
number <- sample(1:100, 5)
    df <- data.frame(
      dates = dates,
      number = number
    )

这样我就可以在每个月有规律的休息时间画出我的df…

ggplot(df, aes(as.Date(dates), number)) + 
  geom_point(size=6) + 
  geom_segment(aes(x = dates, y = 0, xend = dates, yend = number),
               size=0.5, linetype=2) +
  scale_x_date(breaks = date_breaks("1 month"), labels = date_format("%d-%b-%Y")) +
  theme(axis.text.x = element_text(angle=90, hjust=1, vjust=0.5))

…但我想把主要的休息时间设置为df$dates中实际的5个日期。它适用于正常的连续刻度(scale_x_continuous(breaks = c(1, 3, 7, 9)))，但我不知道如何为连续日期刻度做这件事。

我想做一些像…

scale_dates_continuous(breaks = df$dates)

…但不幸的是，这并不存在。非常感谢你的帮助!

Answer 1

请阅读?scale_x_date，关于breaks的论点:您可以使用"中断向量"。因此,试着

scale_x_date(breaks = df$dates, labels = date_format("%d-%b-%Y"))