如何在ggplot中根据值修改分面标签文本的颜色？

我用facet_wrap查看数据时，想把特定值的分面标题改成独特颜色突出显示，但绘图里的color参数已经用来映射其他变量，没法再用。之前看到过相关讨论但方案太繁琐，这里用diamonds数据集举例说明问题：

基础绘图示例 #

library(tidyverse)

diamonds %>% 
  ggplot(aes(x = carat, y = price))+ 
  geom_point()+ 
  facet_wrap(cut ~ clarity)

我需要把切工为**"Premium"**的分面文本改成红色，其余保持默认。

错误尝试及问题 #

我尝试定义颜色向量后通过theme设置，但写法有误：

mycolor <- c("Premium" = "red")

diamonds %>% 
  ggplot(aes(x = carat, y = price))+ 
  geom_point()+ 
  facet_wrap(cut ~ clarity)+ 
  theme(strip.text = element_text(mycolor))

运行后出现以下警告：

Warning: no font could be found for family "red"
Warning: no font could be found for family "red"
Warning: Unable to calculate text width/height (using zero)

生成的图表也未达到预期效果：

解决方案 #

方法1：使用ggtext包（简洁推荐） #

ggtext支持用Markdown/HTML渲染文本，能轻松实现标签的差异化颜色：

library(tidyverse)
library(ggtext)

# 自定义标签函数：匹配到Premium时添加红色样式
format_strip_label <- function(label) {
  ifelse(label == "Premium", 
         "<span style='color:red'>Premium</span>", 
         label)
}

diamonds %>% 
  ggplot(aes(x = carat, y = price))+ 
  geom_point()+ 
  facet_wrap(cut ~ clarity, 
             labeller = labeller(cut = format_strip_label))+ 
  theme(strip.text = element_markdown())

方法2：手动修改grob对象（无需额外包） #

如果不想引入新包，可以通过grid包直接操作ggplot的底层绘图对象：

library(tidyverse)
library(grid)

# 先绘制基础图表
p <- diamonds %>% 
  ggplot(aes(x = carat, y = price))+ 
  geom_point()+ 
  facet_wrap(cut ~ clarity)

# 提取分面标题的grob组件
grob_obj <- ggplotGrob(p)
strip_text_grobs <- grob_obj$grobs[which(grob_obj$layout$name == "strip-t")]

# 遍历所有标题，修改匹配到Premium的文本颜色
for (i in seq_along(strip_text_grobs)) {
  text_element <- strip_text_grobs[[i]]$children[[2]]$children[[1]]
  if (grepl("Premium", text_element$label)) {
    text_element$gp$col <- "red"
    strip_text_grobs[[i]]$children[[2]]$children[[1]] <- text_element
  }
}

# 替换原组件并绘图
grob_obj$grobs[which(grob_obj$layout$name == "strip-t")] <- strip_text_grobs
grid.draw(grob_obj)

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