ggplot2中facet_wrap分面标题文本颜色修改的新方法探讨

以往修改facet_wrap分面标题颜色的方案多依赖for循环和grid包，操作繁琐。这里提供一种完全在ggplot生态内完成的简洁方法，让分面标题颜色与图表标题中的对应物种颜色、填充色保持统一，核心是借助ggtext的markdown渲染能力。

实现步骤 #

• 为颜色向量facet_colors添加物种名称作为命名，确保每个物种能精准匹配对应颜色
• 用as_labeller()自定义分面标签生成函数，将物种名称转换为带颜色样式的markdown文本
• 在主题中设置strip.text = element_markdown()，让分面标题支持渲染带样式的文本

完整代码 #

library(ggplot2)
library(ggtext)
library(tidyr)

facet_colors <- c("#43A047","#8A2BE2", "#007ACC")
names(facet_colors) <- c("Setosa", "Versicolor", "Virginica")

iris |>
  pivot_longer(-Species) |>
  ggplot(aes(x = name, y = value, fill = Species)) +
  geom_boxplot() +
  scale_fill_manual(values = facet_colors) +
  labs(title ="Feature Comparison of <span style='color: #43A047;'>Setosa</span>, 
       <span style='color: #8A2BE2;'>Versicolor</span> and 
       <span style='color: #007ACC;'>Virginica</span>") +
  facet_wrap(
    ~Species,
    labeller = as_labeller(function(x) {
      sprintf("<span style='color: %s;'>%s</span>", facet_colors[x], x)
    })
  ) +
  theme_minimal() +
  theme(
    plot.title = element_markdown(),
    strip.text = element_markdown()
  )

核心说明 #

• 给颜色向量命名是关键，确保每个物种能对应到正确的颜色值
• 自定义labeller函数通过sprintf拼接出带颜色样式的markdown标签，无需额外的底层grid操作
• strip.text = element_markdown()开启分面标题的markdown渲染，让样式生效

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