如何在ggplot中添加第二个因子并实现对应样式映射？

要实现y因子用线型+颜色展示、z因子用形状+颜色展示，且两个图例独立不混淆，核心是通过guides()调整图例的显示元素，同时共享颜色映射。以下是修正后的完整代码：

library(ggplot2)

# 示例数据
x <- rep(c(1, 5), each = 4)
f1 <- as.factor(rep(c("a", "b"), each = 2, times = 2))
f2 <- as.factor(rep(c("a", "b"), each = 1, times = 4))
y <- c(6, 2, 2, 1, 8, 6, 7, 9)
z <- rep(c(7, 10, 11, 12), times = 2)
df <- data.frame(x, f1, f2, y, z)

df$f1_f2 <- as.factor(paste(df$f1, df$f2, sep = ""))

# 绘制y的线条（线型+颜色）
py <- ggplot(data = df, aes(x = x, y = y)) +
  geom_line(aes(linetype = f1_f2, color = f1_f2)) +
  scale_linetype_manual(name = "y",
                        values = c("solid", "solid", "dashed", "dashed")) +
  scale_color_manual(name = "y",
                     values = c("black", "red", "black", "red"))

# 添加z的点（形状+颜色）并调整图例
pz <- py + 
  geom_point(data = df, aes(x = x, y = z, shape = f1_f2, color = f1_f2)) +
  scale_shape_manual(name = "z", values = c(1, 1, 2, 2)) +
  guides(
    # y图例仅显示线条，隐藏形状
    y = guide_legend(override.aes = list(shape = NA)),
    # z图例仅显示点，隐藏线型
    z = guide_legend(override.aes = list(linetype = "blank")),
    # 隐藏独立的颜色图例（避免重复）
    color = "none"
  )

print(pz)

关键说明： #

• 在geom_point中添加color = f1_f2映射，确保点的颜色与线条颜色一致。
• guides()函数用于精准控制图例元素：
  • y = guide_legend(override.aes = list(shape = NA))：让y的图例只展示线型和颜色，不显示形状。
  • z = guide_legend(override.aes = list(linetype = "blank"))：让z的图例只展示形状和颜色，不显示线型。
  • color = "none"：隐藏自动生成的独立颜色图例，避免冗余。

最终效果：

• y因子图例：黑色/红色的实线/虚线，无形状。
• z因子图例：黑色/红色的圆圈/三角，无线条。
• 绘图区域内，彩色线条对应y值，彩色形状对应z值，颜色完全匹配。

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