如何在ggplot分面标签中显示上取整符号并去除冗余标识

你当前代码出现expression字样及括号的原因是：TeX()生成的是expression对象，直接将其作为因子标签时，R会输出这个对象的字面结构，而非解析后的数学表达式。下面提供两种可行的解决方法：

方法一：用R原生plotmath语法（无需额外包） #

ggplot支持原生的plotmath数学表达式语法，其中上取整符号对应lceil()和rceil()函数，直接编写表达式字符串后用label_parsed解析即可：

library(ggplot2)

df_test <- data.frame(
  x = 1:2,
  y = 1:2,
  group_original = c("ABC", "DEF") 
)

# 用plotmath语法定义标签文本
final_facet_labels <- list(
  "ABC" = "qqq + lceil(T[ABC])rceil",
  "DEF" = "qqq + lceil(T[DEF])rceil"
)

df_test$group <- factor(df_test$group_original,
                        levels = names(final_facet_labels), 
                        labels = final_facet_labels)     

ggplot(df_test, aes(x, y)) +
  geom_point() +
  facet_wrap(~ group, labeller = label_parsed) +
  theme_bw()

方法二：正确使用latex2exp（保留LaTeX语法） #

如果偏好LaTeX语法，不要将TeX()生成的对象直接作为因子标签，而是通过自定义labeller函数在分面时解析表达式：

library(ggplot2)
library(latex2exp)

df_test <- data.frame(
  x = 1:2,
  y = 1:2,
  group_original = c("ABC", "DEF") 
)

# 定义LaTeX格式的标签文本
final_facet_labels <- list(
  "ABC" = "$qqq+\\lceil T_{ABC} \\rceil$",
  "DEF" = "$qqq+\\lceil T_{DEF} \\rceil$"
)

# 自定义labeller，将标签转为解析后的expression
custom_labeller <- function(variable, value) {
  lapply(value, function(x) TeX(final_facet_labels[[as.character(x)]]))
}

ggplot(df_test, aes(x, y)) +
  geom_point() +
  facet_wrap(~ group_original, labeller = custom_labeller) +
  theme_bw()

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