ggplot绘制按ID分组的时间序列图：X轴非时序问题解决

问题根源 #

你的START列当前为字符类型，ggplot默认按字符的字典顺序而非时间逻辑排列X轴，这是导致顺序混乱的核心原因。

解决方案步骤 #

1. 转换字符型日期为可识别的日期对象 #

使用lubridate包（或基础R函数）将START列转换为日期类型，让ggplot能识别时间顺序：

# 安装并加载lubridate包（首次使用需执行install.packages("lubridate")）
library(lubridate)
library(ggplot2)

# 转换START列为日期类型（适配"月/年"格式）
df6$START_date <- my(df6$START)
# 基础R替代写法：df6$START_date <- as.Date(paste0(df6$START, "/01"), format = "%m/%Y/%d")

2. 修改绘图代码，设置X轴范围与格式 #

将X轴映射改为转换后的日期变量，同时通过scale_x_date()指定X轴的起止范围和显示格式：

p <- ggplot(data = df6, aes(x = START_date, y = AI, col = ID, group = ID))
p + geom_point(size = 1.2, alpha = .8) +
  stat_smooth(aes(group = 1)) +
  stat_summary(aes(group = 1), geom = "point", fun = mean, shape = 17, size = 3) +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) +
  scale_x_date(
    limits = as.Date(c("2016-09-01", "2018-08-01")), # 强制X轴起止范围
    date_labels = "%m/%Y", # 保持原有的"月/年"显示格式
    date_breaks = "1 month" # 按月份间隔显示刻度，可按需调整为"3 months"等
  )

关键说明 #

• 转换为日期类型后，ggplot会自动按时间顺序排列X轴。
• scale_x_date()的limits参数确保X轴严格覆盖2016年9月至2018年8月，不受单个ID的时间区间限制。
• date_labels参数保证X轴标签格式与原数据一致，避免显示完整日期。

内容的提问来源于stack exchange，提问作者Data miner123