使用facet_wrap设置含希腊字母、下标的分面标签问题

下面提供三种可行的解决方案，针对你需要的φ₀ = 0.60这类带希腊字母和下标的分面标签：

方法1：提前修改因子水平（最直观） #

先将分面变量转换为因子，直接给每个水平指定带plotmath表达式的标签：

library(ggplot2)

# 模拟示例数据
df <- expand.grid(phi = c(0.6, 0.7, 0.8, 0.9), x = 1:10)
df$y <- df$x * df$phi

# 将分面变量转为因子，设置带表达式的标签
df$phi_facet <- factor(df$phi, 
                       levels = c(0.6, 0.7, 0.8, 0.9),
                       labels = expression(phi[0] == 0.60, 
                                          phi[0] == 0.70, 
                                          phi[0] == 0.80, 
                                          phi[0] == 0.90))

# 绘图
ggplot(df, aes(x, y)) +
  geom_line() +
  facet_wrap(~phi_facet, nrow = 2)

方法2：使用label_parsed解析字符串标签 #

如果不想修改原始数据结构，可以将分面变量的水平转为符合plotmath语法的字符串，再用label_parsed自动解析：

# 给分面变量设置plotmath格式的字符串标签
df$phi_str <- factor(df$phi,
                     levels = c(0.6, 0.7, 0.8, 0.9),
                     labels = c("phi[0] == 0.60", 
                                "phi[0] == 0.70", 
                                "phi[0] == 0.80", 
                                "phi[0] == 0.90"))

ggplot(df, aes(x, y)) +
  geom_line() +
  facet_wrap(~phi_str, labeller = label_parsed, nrow = 2)

方法3：自定义labeller函数（无需修改数据） #

直接在facet_wrap中使用as_labeller关联原始水平和表达式标签，无需修改原始数据框：

ggplot(df, aes(x, y)) +
  geom_line() +
  facet_wrap(~phi, 
             labeller = as_labeller(c(
               "0.6" = expression(phi[0] == 0.60),
               "0.7" = expression(phi[0] == 0.70),
               "0.8" = expression(phi[0] == 0.80),
               "0.9" = expression(phi[0] == 0.90)
             )),
             nrow = 2)

常见失败原因说明 #

你之前尝试expression或label_parsed未成功，大概率是以下问题：

• 使用label_parsed时，分面变量的水平不是符合plotmath语法的字符串（比如直接用数值"0.6"，而非"phi[0] == 0.60"）；
• 使用expression时，没有将其与分面变量的水平正确绑定（比如直接在labeller里传入单个expression，而非对应每个水平的表达式列表）。

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