使用 ggplot scale_x_datetime() 设置 x 轴上的第一个日期

Question

我有两年来的水位图。我有一列日期时间（格式 POSIXct 并显示为 2020-03-05 17:00:00）。数据框中有 18,000 行数据。第一条记录是 2020 年 3 月 5 日。当我绘制数据时，x 轴上出现的第一个日期是 Jul-20。3月20日我该怎么做？

这是我目前拥有的与这部分情节设计相关的代码。

scale_x_datetime(
      date_breaks="6 months",
      date_labels="%b-%y")

这是情节的一个例子。

注意：这也是正在进行的数据收集的一部分，因此我不想对最后日期进行硬编码。

Answer 1

library(ggplot2)
dat <- data.frame(date = seq(as.Date("2020-03-05 17:00:00", 
                                     format = "%Y-%m-%d %H:%M:%S"), 
                             as.Date("2022-03-05 17:00:00", 
                                     format = "%Y-%m-%d %H:%M:%S"), 
                             length=18000))
dat$x <- rnorm(18000)
dat$date <- as.POSIXct(dat$date)                  


ggplot(dat, aes(x=date, y=x)) + 
  geom_line() + 
  theme_classic() + 
  scale_x_datetime(breaks= seq(min(dat$date), max(dat$date), length=6), 
                   date_labels="%b-%y")

^{由reprex 包于 2022 年 5 月 3 日创建(v2.0.1)}