R语言ggplot2绘制异长度数据集报错及同图整合方法咨询

你遇到的报错来自两个逻辑错位，不需要拆分组单独绘图，修正后完全可以在同一张图上展示所有分组的聚合结果：

• 数据源与美学映射不匹配：ggplot() 中绑定的是未聚合的原始731行数据集，但美学参数里指定的mean是聚合步骤生成的中间变量，原始数据集中不存在该字段，ggplot会自动从全局环境抓取长度不一致的mean向量进行匹配，直接触发长度不匹配的报错。
• 折线分组逻辑冲突：美学参数中设置的group=1会强制将所有数据点连成单条折线，完全忽略按组别区分系列的需求，和colour=group的映射逻辑矛盾。

完整可运行修正代码 #

library(dplyr)
library(ggplot2)

# 构建原始数据集
date= seq(as.Date("2014/1/1"), as.Date("2016/1/1"),by="day")
var <- rnorm(731,10,10)
group <- sample( LETTERS[1:4], 731, replace=TRUE, prob=c(0.25, 0.25, 0.25, 0.25) )
data = data.frame(date, var, group)
data$year = as.numeric(format(data$date,'%Y'))
data$year = as.factor(data$year)

# 聚合计算并保存为独立数据集
agg_data <- data %>%
    mutate(date = as.Date(date)) %>%
    group_by(group, month = format(date, "%Y-%m")) %>%
    summarise(mean = mean(var, na.rm = TRUE), Count = n(), .groups = "drop") %>%
    # 转换字符串月份为标准日期格式，适配x轴的日期刻度
    mutate(month_date = as.Date(paste0(month, "-01")))

# 绘制聚合折线图
ggplot(agg_data) +
    geom_line(aes(x=month_date, y=mean, colour=group, group=group))+
    scale_x_date(date_breaks = "12 months", date_labels = "%Y-%m")+
    scale_colour_manual(values=c("red","green","blue", "purple"))+
    theme(axis.text.x = element_text(angle=90, vjust = 0.5, hjust=1))

关键修正说明 #

• 更换绘图数据源：将聚合完成的agg_data作为ggplot的输入，解决因原始数据集缺少mean变量导致的长度不匹配报错。
• 修正分组映射：将aes中错误的group=1替换为group=group，让ggplot识别每个组别为独立的折线系列，和颜色映射保持一致。
• 修正日期轴配置：删除原代码中冲突的双breaks参数，统一用date_breaks控制刻度间隔，同时将字符串格式的聚合月份转换为标准Date类型，匹配scale_x_date的输入要求。
• 该写法天然支持不同组别数据规模差异：哪怕某个月份某一组的样本量少于其他组，只要计算出有效均值，ggplot会自动完成对应点的绘制，无需拆分单独出图。

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