如何使用scale_color_manual为ggplot2分面图各组自定义颜色？

好问题！默认的scale_color_manual是全局生效的，没法直接给每个分面单独指定颜色规则，但我们有几个实用的办法来实现这个需求，下面给你详细拆解：

方法一：创建组合分组变量 #

这个思路是把分面变量和需要设置颜色的分组变量合并成一个新的组合变量，然后用这个新变量来映射颜色，这样就能精准控制每个分面里不同组的颜色了。

示例代码 #

# 先构造一份示例数据方便演示
set.seed(123)
df <- data.frame(
  x = rep(c("A", "B", "C"), each = 4),
  y = rnorm(12),
  z = rep(c("circle", "triangle"), 6),
  variable = rep(c("Var1", "Var2"), each = 6)
)

# 创建分面变量+颜色分组的组合变量
df$color_group <- paste(df$variable, df$x, sep = "_")

# 绘制图形
dataPlot <- ggplot(df, aes(x = x, y = y)) +
  geom_point(aes(shape = z, color = color_group), size = 3) +
  facet_grid(~variable) +
  scale_color_manual(
    values = c(
      "Var1_A" = "#636363", "Var1_B" = "#de2d26", "Var1_C" = "#636363",
      "Var2_A" = "#31a354", "Var2_B" = "#636363", "Var2_C" = "#31a354"
    )
  ) +
  guides(color = "none") # 不需要显示组合变量的图例时可以隐藏

方法说明 #

• 优点：逻辑简单直观，不需要额外安装包，适合分组数量不多的场景。
• 缺点：如果分面和分组的组合太多，values里的颜色映射会写得比较长。

方法二：使用ggnewscale包添加多套颜色比例尺 #

如果想让每个分面的颜色映射完全独立（比如不同分面里的同一组用不同颜色），可以用ggnewscale包来为每个分面单独设置颜色比例尺。

示例代码 #

# 先安装并加载包
install.packages("ggnewscale")
library(ggnewscale)

# 绘制图形
dataPlot <- ggplot() +
  # 第一个分面的图层和专属颜色比例尺
  geom_point(data = subset(df, variable == "Var1"), 
             aes(x = x, y = y, shape = z, color = x), size = 3) +
  scale_color_manual(values = c("A" = "#636363", "B" = "#de2d26", "C" = "#636363"),
                     name = "Var1 分组颜色") +
  # 开启新的颜色比例尺，避免和前面的冲突
  new_scale_color() +
  # 第二个分面的图层和专属颜色比例尺
  geom_point(data = subset(df, variable == "Var2"), 
             aes(x = x, y = y, shape = z, color = x), size = 3) +
  scale_color_manual(values = c("A" = "#31a354", "B" = "#636363", "C" = "#31a354"),
                     name = "Var2 分组颜色") +
  facet_grid(~variable) +
  scale_shape_manual(values = c("circle" = 16, "triangle" = 17)) # 统一shape的映射规则

方法说明 #

• 优点：灵活性极高，每个分面可以有完全独立的颜色规则，还能为每个分面单独设置图例名称。
• 缺点：需要额外安装包，分面数量多的话代码会稍长，但可读性依然很好。

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