如何为ggplot2的facet_wrap标签添加下标且不使用label_parsed？

解决方案 #

你可以直接调整names_head的取值，配合R内置的plotmath表达式解析实现下标效果，操作步骤如下：

步骤1：修改自定义标签向量names_head #

将|S| = ...格式的标签替换为符合plotmath语法的表达式字符串：

• 下标用[]包裹，S[0]渲染后会自动显示为S₀
• 表达式中的等于号需写为==，渲染后会自动展示为普通等于号
  修改后的names_head示例：

names_head <- c(`n = 601` = "n == 601", 
                `n = 750` = "n == 750",
                `n = 1000` = "n == 1000",
                `n = 1250` = "n == 1250",
                `n = 1500` = "n == 1500",
                `s010` =  "|S[0]| == 10",  
                `s025` = "|S[0]| == 25",  
                `s050` = "|S[0]| == 50",
                `s075` = "|S[0]| == 75",  
                `s0100` = "|S[0]| == 100",
                `rho0.1` = "rho == 0.1", 
                `rho0.3` = "rho == 0.3", 
                `rho0.5` = "rho == 0.5",
                `rho0.7` = "rho == 0.7", 
                `rho0.9` = "rho == 0.9", 
                `SNR = 1` = "SNR == 1", 
                `SNR = 2` = "SNR == 2", 
                `SNR = 3` = "SNR == 3",
                `SNR = 4` = "SNR == 4", 
                `SNR = 5` = "SNR == 5")

步骤2：调整facet_wrap的标签器参数 #

使用as_labeller指定解析规则为label_parsed，让ggplot2自动解析表达式字符串：

facet_wrap(~var, labeller = labeller(var = as_labeller(names_head, default = label_parsed)))

修改后分面标签会自动渲染出|S₀| = ...的下标效果，ρ符号也会用标准希腊字母渲染，无需调整其他绘图逻辑。

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