ggplot2绘制indcode分组avgemp折线图无显示问题

你的代码无法出图、无法达到预期效果，是因为存在4个核心问题：

• 画布美学映射配置错误：aes()里y轴错误映射了indcode（行业编码），实际需要映射的指标是avgemp（平均就业人数）；同时没有将indcode配置为分组/颜色维度，ggplot无法识别需要拆分3条独立折线的规则。
• 缺失核心绘图图层：ggplot采用图层叠加逻辑，你仅完成了画布初始化，没有添加geom_line()折线几何图层，运行后只会输出空白画布，不会渲染任何图形。
• 字段类型不符合要求：date1当前是字符串类型，未转换为标准日期格式，无法保证x轴严格按日期先后顺序从左到右排布。
• 冗余无效代码：dplyr的group_by(indcode)不会对ggplot的分组逻辑产生任何作用，ggplot的分组规则完全依赖aes()内部的映射配置，这行分组操作属于无效代码。

library(dplyr)
library(ggplot2)

date1 <- c("2002-01-01","2002-02-01","2002-03-01","2002-01-01","2002-02-01","2002-03-01","2002-01-01","2002-02-01","2002-03-01")
indcode <- c(7113,7113,7113,7112,7112,7112,7131,7131,7131)
avgemp <- c(100,101,102,90,92,98,244,210,585)

test1 <- data.frame(date1, indcode, avgemp)

# 预处理：转换字段类型
test1 <- test1 %>%
  mutate(
    date1 = as.Date(date1), # 转为日期类型，保证x轴时序正确
    indcode = as.factor(indcode) # 行业编码转为分类因子，用于分组着色
  )

# 绘图
test1chart <- ggplot(test1, aes(x = date1, y = avgemp, color = indcode, group = indcode)) +
  geom_line(linewidth = 1) + # 添加折线图层
  labs(x = "日期", y = "平均就业人数", color = "行业编码") # 自定义坐标轴、图例名称，可按需调整

test1chart

代码说明：aes()中配置color = indcode会自动为3个行业的折线分配区分度较高的不同颜色，同时自动完成分组逻辑；日期类型转换完成后，x轴会默认按时间先后顺序排列，无需额外调整顺序。

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