如何为ggplot2中facet_grid()的指定行设置自定义颜色

问题场景 #

用ggplot2绘图，通过facet_grid(model_type~school_num)实现分面，在aes中设置color = model_type区分不同模型类型，但无法指定具体的自定义颜色值，其余功能均正常。

核心原因 #

你的model_type是数值型变量，ggplot默认会将其当作连续变量处理，直接使用颜色映射时无法直接指定离散的自定义颜色。以下是两种可行的解决方法：

方法1：将model_type转为因子（推荐） #

把数据中的model_type转换为分类因子，让ggplot识别为离散变量，再通过scale_color_manual指定对应颜色：

# 先转换model_type为因子，同时匹配你的标签规则
dz$model_type <- factor(dz$model_type, levels = c(5,6), labels = c("Linear", "Logit"))

在ggplot代码中添加自定义颜色映射：

scale_color_manual(values = c("Linear" = "#2ecc71", "Logit" = "#e74c3c"))

方法2：不修改数据类型，直接针对数值指定颜色 #

如果不想改变数据结构，直接在scale_color_manual中用数值作为键来绑定颜色（注意数值要加引号）：

scale_color_manual(values = c("5" = "#2ecc71", "6" = "#e74c3c"))

完整修改后的代码（方法1示例） #

mylabels <- c("1" = "Springfield",
              "2" = "Valley",
              "3" = "Glenside",
              "4" = "Upper",
              "5" = "Linear",
              "6" = "Logit")

# 转换model_type为因子
dz$model_type <- factor(dz$model_type, levels = c(5,6), labels = c("Linear", "Logit"))

ggplot(dz, aes(x = var, y = coef, color = model_type,
               ymin = ci_lower, ymax = ci_upper)) +
  geom_point() +
  geom_errorbar(width = 0.1) +
  facet_grid(model_type~school_num, labeller = as_labeller(mylabels)) +
  coord_flip() +
  theme_bw(base_size = 14) +
  # 自定义颜色
  scale_color_manual(values = c("Linear" = "#2ecc71", "Logit" = "#e74c3c")) +
  theme(legend.position ="none",
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        strip.background = element_rect(fill = "white"))

补充说明 #

• 颜色值可以用十六进制码（如#ff0000）、R内置颜色名称（如"red"），或使用RColorBrewer包的调色板（如scale_color_brewer(palette = "Set1")）。
• 若使用方法2，需确保values中的键与model_type的数值完全匹配（包括引号，因为ggplot会将数值型的颜色映射键转为字符）。

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