R ggplot如何合并颜色与线型图例为单个无标题图例

用R的ggplot绘制享乐价格指数折线图，初始通过颜色区分sample_sizes的两个类别（Alternative和Normal）。为两个类别设置不同线型后，出现了两个独立图例，需要合并成一个同时显示颜色和线型的图例，且不显示图例标题。

要合并颜色与线型图例，核心是让ggplot识别两个美学映射（color、linetype）对应同一分组变量，并统一两个scale的标签与名称设置，最后通过guides()统一控制图例样式：

• 将linetype映射与color、group一起放到全局aes()中，确保基于同一变量分组
• 让scale_color_manual和scale_linetype_manual的name都设为空字符串，labels完全一致，保证分组匹配
• 使用guides()统一设置图例的反转（reverse）等样式，实现图例合并

desired_linetype <- c("dotted", "solid")
color_two_groups_type_2 <- c("dark red", "black")
pd <- position_dodge(0.4)

hedonic_price_indices %>% 
  ggplot(aes(x = year, y = index, group = factor(sample_sizes), 
             color = factor(sample_sizes), linetype = factor(sample_sizes))) +
  geom_line(position = pd) +
  geom_point(size = 0.5, position = pd) +
  geom_errorbar(aes(ymin = index_lower_ci, ymax = index_upper_ci), 
                width = 0.15, size = 0.25, colour = "black", position = pd) +
  scale_y_continuous(breaks = c(0.5, 1.0, 1.5, 2.0, 2.5), limits = c(0.125, 2.85)) +
  scale_x_discrete(breaks = c(1985, 1990, 1995, 2000, 2005, 2010, 2015, 2020)) +
  scale_color_manual(name = "", labels = c("Alternative", "Normal"), 
                     values = color_two_groups_type_2) +
  scale_linetype_manual(name = "", labels = c("Alternative", "Normal"), 
                        values = desired_linetype) +
  guides(color = guide_legend(reverse = TRUE)) +
  theme(legend.position = "bottom", 
        legend.margin = margin(0, 0, 0, 0), 
        legend.box.margin = margin(-20, 0, 0, 0)) +
  labs(title = "", x = "", y = "Index value (2000 = 1)")

• 全局aes()中同时映射color和linetype到sample_sizes，让ggplot知道两个美学属性属于同一分组
• 两个scale的name设为空，确保图例无标题；labels完全一致，保证分组对应关系匹配
• 通过guides(color = guide_legend(reverse = TRUE))统一设置图例反转，此时ggplot会自动合并颜色与线型图例，无需单独设置linetype的guide

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