r - R-ggplot2时间序列x轴，显示当月的最后一天

Question

为什么ggplot会一直给我一个月的第一天，然后再绘制一个时间序列。
这是我的代码示例:

library(ggplot2)
library(dplyr)
date <- as.Date(c("2008-01-31",
"2008-02-29",
"2008-03-31",
"2008-04-30",
"2008-05-31"))


count <- sample(5)
df <- data.frame(date = date, count = count)
df %>% 
  ggplot(aes(x = date, y = count))+
  geom_line()+
  scale_x_date(date_breaks = "1 month",
               date_labels = '%m/%d')  

我希望x轴显示 df或月份的最后一天的实际日期。而是显示下个月的第一天。
我尝试搜索此方法，但找不到适用的解决方案。

谢谢。

Answer 1

也许最直接的解决方案是直接使用breaks而不是date_breaks，直接引用数据框中的日期列。

df %>% 
  ggplot(aes(x = date, y = count))+
  geom_line()+
  scale_x_date(date_labels = '%m/%d', breaks = df$date)