R语言Geom Line：合并颜色与形状图例的实现方案

问题 #

使用scale_shape_manual和scale_color_manual为8个不同列的变量设置颜色与形状后，图表的颜色与形状图例分离，需要合并为一个图例，每个图例项显示对应变量的带颜色形状。

核心解决思路 #

ggplot中要合并图例，关键是让颜色和形状映射到同一个分组变量。当前代码用宽格式数据（每个变量一列）重复调用geom，导致颜色和形状分别映射到不同的字符串常量，图例无法合并。正确做法是先将数据转换为长格式，再统一映射分组变量到颜色和形状。

具体步骤与修正后代码 #

1. 将宽格式数据转换为长格式：用pivot_longer把8个数值列整合为变量名和数值两列
2. 统一在aes中映射color和shape到新的分组变量（即原变量名）
3. 修正原代码中bergvarme的geom_point重复定义shape的错误
4. 保持scale_shape_manual和scale_color_manual的取值名称与分组变量一致，即可自动合并图例

修正后的完整代码：

underlag3 %>% 
  mutate_at(c('fjarrvarme', 'oljeeldning','ovrigt','fjarrvarme_komb',
              'gas','elvarme','bergvarme','bio'), as.numeric) %>% 
  # 转换为长格式
  pivot_longer(cols = c(fjarrvarme, oljeeldning, ovrigt, fjarrvarme_komb, gas, elvarme, bergvarme, bio),
               names_to = "variable", values_to = "value") %>% 
  ggplot(aes(x = ar, y = value, color = variable, shape = variable)) +
  # 统一绘制线和点，无需重复调用geom
  geom_line() +
  geom_point() +
  scale_x_continuous(n.breaks = 41) +
  scale_shape_manual(values = c('fjarrvarme' = 17, 'fjarrvarme_komb' = 18,
                                'elvarme' = 4, 'bio' = 16,
                                'bergvarme' = 16, 'oljeeldning' = 15,
                                'gas' = 16, 'ovrigt' = 16)) +
  scale_color_manual(values = c('fjarrvarme' = "#000080", 'fjarrvarme_komb' = "#363636",
                                'elvarme' = "#544C4A", 'bio' = "black",
                                'bergvarme' = "#5097A4", 'oljeeldning' = "#787276",
                                'gas' = "#4682b4", 'ovrigt' = "#222021")) +
  # 可选：修改图例标题，两者名称一致才能完全合并
  labs(color = "能源类型", shape = "能源类型")

补充说明 #

• 如果坚持使用原宽格式代码（不转长格式），也可以通过以下方式合并图例：
  • 确保所有shape和color的映射字符串完全一致（原代码中FjarrVarme Komb和fjarrvarme_komb大小写不一致，会被识别为不同分组，需统一）
  • 在scale_shape_manual和scale_color_manual中设置相同的name参数
  • 让ggplot自动合并匹配的分组图例
• 转长格式是更简洁、符合ggplot最佳实践的方式，避免重复代码，也更易维护

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