使用ggplot2的geom_pointrange时图例无法正确显示虚实线的技术求助

我明白你的问题了——你想要让图例清晰展示6个场景的（颜色+线型）组合，每个场景作为独立条目，而不是重复的颜色条目。问题出在ggplot默认的图例渲染逻辑，当同一个变量同时映射到colour和linetype时，需要明确告诉它把这两个美学属性合并成一个图例，并且每个场景条目都显示对应的颜色和线型。

修改后的完整代码 #

sens <- cbind.data.frame(
 group = rep(c("Grp1", "Grp2", "Grp3", "Grp4", "Grp5"), 6),
 mean = c(0.70, 0.70, 0.65, 0.60, 0.72, 0.85, 0.84, 0.77, 0.68, 0.77, 0.71, 0.71, 0.69, 0.65, 0.76, 0.90, 0.88, 0.82, 0.82, 0.87, 0.78, 0.78, 0.79, 0.73, 0.83, 0.92, 0.92, 0.92, 0.90, 0.93) * 100,
 lower = c(0.64, 0.64, 0.59, 0.55, 0.68, 0.73, 0.73, 0.65, 0.55, 0.68, 0.66, 0.66, 0.63, 0.59, 0.72, 0.80, 0.78, 0.70, 0.70, 0.79, 0.73, 0.72, 0.74, 0.68, 0.80, 0.84, 0.84, 0.82, 0.79, 0.87) * 100,
 upper = c(0.75, 0.75, 0.70, 0.66, 0.76, 0.92, 0.91, 0.87, 0.80, 0.84, 0.77, 0.76, 0.74, 0.70, 0.79, 0.95, 0.94, 0.90, 0.90, 0.92, 0.82, 0.82, 0.83, 0.79, 0.86, 0.97, 0.97, 0.97, 0.96, 0.97) * 100,
 type = rep(c("A1&B1", "A1&B2", "A2&B1", "A2&B2", "A3&B1", "A3&B2"), each=5),
 type2 = rep(c(rep("B1", 5), rep("B2", 5)), 3),
 type3 = rep(c(rep("A1", 10), rep("A2", 10), rep("A3", 10)))
)

# 显式转换type为因子，确保图例顺序和场景顺序一致
sens$type <- factor(sens$type, levels = c("A1&B1", "A1&B2", "A2&B1", "A2&B2", "A3&B1", "A3&B2"))

ggplot(sens, aes(group, mean, colour = type, linetype = type)) +
 geom_pointrange(aes(ymin = lower, ymax = upper), 
                 position = position_dodge(width = 0.5), 
                 size=1.25) +
 coord_flip() +
 xlab("Group") +
 ylab("Sensitivity (95% CI)") +
 scale_color_manual(values = c("red", "red", "dark grey", "dark grey", "blue", "blue")) +
 scale_linetype_manual(values=c(1,2,1,2,1,2)) +
 # 核心修改：合并颜色和线型图例，每个条目展示对应颜色+线型
 guides(colour = guide_legend(
   override.aes = list(
     linetype = c(1,2,1,2,1,2),  # 匹配每个场景的线型
     shape = 16                   # 确保图例显示实心点
   ),
   nrow = 2  # 可选：将图例分成两行，底部显示更美观
 )) +
 theme(axis.text.x=element_text(size=15, vjust=0.5, color = 'black'), 
       axis.text.y=element_text(size=15, vjust=0.5, color = 'black'), 
       axis.title.x=element_text(size=17.5, vjust=0.1), 
       axis.title.y=element_text(size=17.5, vjust=1.5), 
       legend.title=element_blank(),
       legend.position= "bottom",
       legend.text = element_text(size = 14.5),
       # 可选：调整图例间距，避免拥挤
       legend.box.spacing = unit(0.5, "cm")
 )

关键修改说明 #

• 显式因子转换：把type转为有序因子，确保图例条目顺序和你预设的场景顺序一致，避免ggplot自动打乱排序。
• 图例合并控制：通过guides(colour = guide_legend(...))统一管理图例，用override.aes指定每个条目的线型，同时设置shape=16让图例显示实心点，这样每个条目会同时展示对应场景的颜色和线型。
• 布局优化：添加nrow=2让图例分成两行，配合legend.box.spacing调整间距，让底部的图例排版更整齐。

修改后，图例就会显示6个独立条目，每个条目对应一个场景的（颜色+线型）组合，完全符合你的需求。

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