ggplot绘制带多组分组连线的散点图出错，如何解决？

你的问题核心是数据格式不匹配ggplot的最佳实践：当前数据是宽格式（每个城市单独一列），而ggplot更适合用长格式（城市作为分组列、数值作为统一值列）实现批量分组绘图，既能自动生成图例，也能避免冗余代码。

步骤1：将宽格式数据转换为长格式 #

使用tidyr::pivot_longer函数重构数据结构，同时过滤空值：

library(tidyverse)

# 转换数据格式并去除NA值
dataset_long <- dataset %>%
  pivot_longer(
    cols = starts_with("City_"), # 选中所有城市列
    names_to = "City",           # 新列名：城市名称
    values_to = "Value"          # 新列名：对应年份的数值
  ) %>%
  drop_na() # 移除含空值的行，避免图形出现无效断点

转换后的数据结构示例：

步骤2：用长格式数据绘制目标图形 #

只需一次调用geom_point和geom_line，通过aes中的group和color实现自动分组：

ggplot(dataset_long, aes(x = Year, y = Value, group = City, color = City)) +
  geom_point(size = 2) + # 调整点的大小
  geom_line(linewidth = 1) + # 调整线的粗细
  scale_color_manual( # 自定义各城市的颜色，匹配你原代码的颜色设置
    values = c(
      "City_A" = "blue",
      "City_B" = "purple",
      "City_C" = "red",
      "City_D" = "orange",
      "City_E" = "gold"
    )
  ) +
  labs( # 设置图表标签
    x = "年份",
    y = "数值",
    color = "城市"
  ) +
  theme_bw() # 可选：使用简洁的白底主题

原代码的问题分析 #

你之前逐个城市添加图层的写法存在以下缺陷：

• 无统一图例，需手动添加，可读性差
• 代码冗余，修改或新增城市时需重复编写大量代码
• 对NA值的处理不够统一，容易出现意外的断点

通过长格式重构后，就能得到和示例图一致的效果：每个城市对应一条带标记点的连线，颜色区分清晰，且自带规范图例。

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