ggplot2多列对一列绘图：添加列名图例与颜色区分方法

问题描述 #

将宽格式数据转换为长格式后，绘制散点图时无法显示图例，需要把name列作为图例标识，同时为不同列对应的数据点设置不同颜色。当前使用的代码如下：

data %>% 
  pivot_longer(cols = 1:12) %>% 
  mutate(name = factor(name, levels = paste0("X", 1:12))) %>% 
  ggplot(aes(x, value)) + 
  geom_point() + 
  theme_bw()

解决方案 #

核心是将name变量映射到ggplot的视觉属性（比如颜色），这样ggplot会自动生成对应的图例。修改后的代码如下：

data %>% 
  pivot_longer(cols = 1:12) %>% 
  mutate(name = factor(name, levels = paste0("X", 1:12))) %>% 
  ggplot(aes(x, value, color = name)) +  # 新增color = name映射
  geom_point() + 
  theme_bw() +
  labs(color = "列名")  # 可选：自定义图例标题

关键说明 #

• 之前无图例的原因：未将name变量与任何视觉属性绑定，ggplot仅在变量映射到颜色、形状等视觉参数时才会生成图例。
• 若需要用形状区分不同列的数据点，可将color = name替换为shape = name，或同时使用color = name, shape = name实现双重区分。
• 如需自定义颜色方案，可添加scale_color_manual()函数指定颜色，示例：

  scale_color_manual(values = c("X1" = "red", "X2" = "blue", ...))  # 按列名对应设置颜色
  

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