如何在R语言ggplot2中修改facet_grid标签的文本颜色？

需求：将facet_grid的分面标签（A和B）分别设置为红色和蓝色，现有基础代码如下：

library(data.table)
library(ggplot2)
A = data.table(x = 1:4, y = 1:4, z = c('A','A','B','B'))

ggplot(A) + geom_point(aes(x = x, y = y, color = z)) + facet_grid(~z) + theme_bw()

默认输出中，分面标签均为黑色，需要针对不同标签设置对应颜色。

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

ggtext支持在标签中嵌入HTML样式，能便捷实现多色标签：

1. 安装并加载依赖包：

install.packages("ggtext")
library(ggtext)

2. 自定义带颜色的标签映射，配合element_markdown解析样式：

label_colors <- c(
  A = "<span style='color:red'>A</span>",
  B = "<span style='color:blue'>B</span>"
)

ggplot(A) + 
  geom_point(aes(x = x, y = y, color = z)) + 
  facet_grid(~z, labeller = labeller(z = label_colors)) + 
  theme_bw() +
  theme(strip.text = element_markdown())

方法2：直接操作gtable（无需额外包） #

如果不想安装新包，可通过修改ggplot生成的gtable对象实现：

library(ggplot2)
library(gtable)
library(grid)

# 生成基础绘图
p <- ggplot(A) + 
  geom_point(aes(x = x, y = y, color = z)) + 
  facet_grid(~z) + 
  theme_bw()

# 转换为gtable对象
gt <- ggplotGrob(p)

# 定位分面标签的文本元素
strip_text_pos <- which(grepl("strip.text", gt$layout$name))

# 分别设置标签颜色
gt$grobs[strip_text_pos][[1]]$children[[1]]$gp$col <- "red"
gt$grobs[strip_text_pos][[2]]$children[[1]]$gp$col <- "blue"

# 绘制修改后的图形
grid.draw(gt)

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