ggplot2中facet_wrap副标题下标添加失败，求解决方案

方法一：用表达式解析（推荐） #

你之前用expression(beta[1])失败，是因为没让labeller解析表达式。把facet的labeller改成带label_parsed = TRUE的版本，用bquote动态插入数值：

修改后的核心代码片段：

facet_wrap(~beta1, labeller = as_labeller(function(value) {
  bquote(beta[1] == .(value))
}, label_parsed = TRUE))

完整代码：

ggplot(final_df, aes(Dr, mean, group = beta2, color = beta2))+
  geom_point(aes(group = pars))+
  geom_line()+
  scale_y_log10()+
  scale_x_log10()+
  geom_errorbar(aes(ymin = mean - se, ymax = mean + se, color = beta2), width = 0.2) +
  labs(x = "Dispersal rate", y = target_terms2[i])+
  facet_wrap(~beta1, labeller = as_labeller(function(value) {
    bquote(beta[1] == .(value))
  }, label_parsed = TRUE)) +
  labs(color = expression(beta[2])) +
  theme_classic() + 
  theme(legend.title = element_text(hjust = 0.2))

bquote会把.(value)替换成实际的beta1数值，label_parsed = TRUE让ggplot把字符串当成数学表达式解析，下标就能正常显示。

方法二：修复Unicode下标显示问题 #

如果坚持用Unicode，问题出在当前字体不支持下标字符。可以在theme里给strip.text指定支持Unicode的字体，比如Windows的"Arial Unicode MS"或Mac的"SF Pro Text"：

ggplot(final_df, aes(Dr, mean, group = beta2, color = beta2))+
  # 其他图层代码不变
  facet_wrap(~beta1, labeller = as_labeller(function(value) {
    return(paste("β₁ = ", value))
  })) +
  # 其他设置不变
  theme_classic() + 
  theme(
    legend.title = element_text(hjust = 0.2),
    strip.text = element_text(family = "Arial Unicode MS") # 替换成你系统支持的字体
  )

注意不同系统的字体名称不同，需根据自己的系统调整字体名。

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