在带facet_grid的ggplot2中如何程序化设置轴标签字体样式？

这个问题我之前也碰到过！核心原因是当你用facet_grid加scales="free_y"时，每个面板的Y轴标签都是独立的子集，你原来直接给axis.text.y传的全局face向量长度和每个面板的标签数量不匹配，ggplot没法正确映射，自然就失效了。

这里给你一个简单可靠的解决方案，不需要额外安装包：

步骤1：提前构建标签与样式的映射关系 #

先创建一个命名向量，把每个Y轴标签对应的字体样式（"plain"或"bold"）绑定起来，这样不管标签出现在哪个面板，都能精准匹配样式：

library(tidyverse)
library(magrittr)

data("mtcars")
mtcars %<>% 
  rownames_to_column() %>% 
  mutate(rowname = fct_reorder(rowname, mpg))

# 构建命名向量：键是标签名称，值是对应的字体样式
face_vec <- setNames(
  rep(c("plain", "bold"), c(30, 2)),  # 按你的需求设置30个普通、2个粗体
  levels(mtcars$rowname)  # 对应排序后的所有标签
)

步骤2：在绘图时动态匹配样式 #

在theme的axis.text.y参数里，用after_stat(label)来获取当前轴标签的文本，然后从我们的命名向量中取出对应的样式：

p2 <- mtcars %>% 
  ggplot(aes(mpg, rowname)) +
  geom_point() +
  facet_grid(cyl ~ ., scales = "free_y", space = "free_y") +
  theme(
    axis.text.y = element_text(
      face = face_vec[after_stat(label)]  # 动态匹配每个标签的样式
    )
  )
p2

这样运行后，你会发现不管哪个面板里的目标标签，都会正确显示粗体样式。

进阶：按自定义条件设置加粗 #

如果你的加粗需求不是固定数量，而是基于某些数据条件（比如某类车型），可以先在数据里标记，再构建映射向量：

# 比如给特定车型标记需要加粗
mtcars %<>% mutate(
  is_bold = rowname %in% c("Cadillac Fleetwood", "Lincoln Continental")
)

# 基于标记构建样式向量
face_vec <- setNames(
  ifelse(mtcars$is_bold, "bold", "plain"),
  mtcars$rowname
)

用这个方法替换上面的face_vec，就能实现更灵活的样式控制。

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