使用ggplot和lubridate设置时间序列图X轴为年季度标签求助

我来帮你搞定这个X轴标签的问题！你当前的代码里，quarter(Event.date, with_year = TRUE)返回的是数值类型（比如2010.1代表2010年第一季度），ggplot会把它当作连续数值处理，所以没法自动显示成我们想要的2010 Q1这种清晰的季度格式。

下面给你两种靠谱的解决方案，任选一种都能达到预期效果：

方法1：将季度转为有序因子 #

这种方法直接生成带年份和季度的文本标签，转成有序因子确保X轴顺序正确：

library(tidyverse)
library(lubridate)

# 生成示例数据
Event.number <- c(1:30)
Event.date <- sample(seq(as.Date('2010/01/01'), as.Date('2012/12/31'), by="day"), 30)
Disease <- rep(c("A", "A", "B", "A", "B"), 6)

data.frame(Event.number, Event.date, Disease) %>% 
  # 生成"YYYY QX"格式的季度标签，并转为有序因子
  mutate(Year.Quarter = paste(year(Event.date), "Q", quarter(Event.date), sep = "")) %>%
  # 按时间顺序排列因子水平
  mutate(Year.Quarter = fct_reorder(Year.Quarter, Event.date)) %>%
  group_by(Year.Quarter, Disease) %>% 
  count(name = "Cases") %>% 
  ggplot(aes(Year.Quarter, Cases, colour = Disease))+ 
  geom_point()+ 
  geom_line()+
  # 旋转X轴标签避免重叠（可选）
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

方法2：将日期转为季度起始日期（更推荐） #

这种方法保留日期类型，让ggplot能更灵活地处理时间轴，适合后续调整时间范围或标签格式：

library(tidyverse)
library(lubridate)

# 生成示例数据
Event.number <- c(1:30)
Event.date <- sample(seq(as.Date('2010/01/01'), as.Date('2012/12/31'), by="day"), 30)
Disease <- rep(c("A", "A", "B", "A", "B"), 6)

data.frame(Event.number, Event.date, Disease) %>% 
  # 将日期转为对应季度的第一天（日期类型）
  mutate(Quarter_Start = floor_date(Event.date, "quarter")) %>%
  group_by(Quarter_Start, Disease) %>% 
  count(name = "Cases") %>% 
  ggplot(aes(Quarter_Start, Cases, colour = Disease))+ 
  geom_point()+ 
  geom_line()+
  theme_minimal() +
  # 设置X轴标签为"YYYY QX"格式，每3个月显示一个标签
  scale_x_date(
    date_breaks = "3 months",
    date_labels = "%Y Q%q",
    # 可选：限制X轴范围（如果需要）
    limits = c(as.Date("2010-01-01"), as.Date("2013-01-01"))
  ) +
  # 旋转X轴标签避免重叠（可选）
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

为什么方法2更推荐？ #

因为它保留了日期的时间属性，后续如果需要调整时间范围、修改标签格式（比如改成Q1 2010），只需要修改date_labels的参数即可，比因子方法更灵活。比如把date_labels改成"Q%q %Y"就能得到Q1 2010的标签。

内容的提问来源于stack exchange，提问作者Greg Martin