rstatix包get_test_label与get_pwc_label返回表达式的原因及实现方法

• 核心是匹配ggplot2生态的文本渲染需求：返回的是R的plotmath格式表达式，直接传入labs()、annotate()等ggplot2参数时，会自动渲染出符合学术规范的排版效果：比如斜体的统计量符号F、p，上下标格式的效应量η_g²，加粗的方法标注等，纯文本无法直接实现这类格式效果。
• 兼顾灵活性：如果需要纯文本内容，直接调用eval()对表达式求值即可得到拼接完成的字符串，不用额外做格式解析。
• 减少用户重复劳动：不需要用户手动拼写复杂的plotmath代码，函数已经把统计结果提取、格式排版的逻辑封装好了，拿到返回值可以直接使用。

核心是利用R的bquote()函数构造plotmath表达式，用.()包裹需要替换的变量即可把统计值动态插入表达式中，示例代码如下：

示例：自定义t检验结果标签生成函数 #

# 自定义函数，输入t检验结果对象，返回可直接用于ggplot的格式表达式
custom_t_label <- function(t_test_result) {
  # 提取统计量，按需保留小数位数
  t_value <- round(t_test_result$statistic, 2)
  df <- round(t_test_result$parameter, 1)
  p_value <- ifelse(t_test_result$p.value < 0.001, "<0.001", round(t_test_result$p.value, 3))
  # 构造plotmath表达式，bquote中.()内的变量会被替换为实际值
  label_expr <- bquote(
    italic("t") * "(" * .(df) * ")" * " = " * .(t_value) * ", " * 
    italic("p") * " = " * .(p_value) * ", " * 
    bold("双侧检验")
  )
  return(label_expr)
}

# 测试使用
test_res <- t.test(mpg ~ am, data = mtcars)
my_label <- custom_t_label(test_res)
# 直接传入ggplot的labs即可渲染带格式的标题
library(ggplot2)
ggplot(mtcars, aes(x = factor(am, labels = c("自动", "手动")), y = mpg)) +
  geom_boxplot() +
  labs(title = my_label, x = "变速箱类型", y = "油耗(英里/加仑)")

关键语法说明 #

• plotmath支持的格式函数可以直接写在表达式中：italic()斜体、bold()加粗、^接上标、[]接下标，完全匹配rstatix函数的效果。
• 如果需要拼接多个表达式片段，可以用paste()结合as.expression()处理，逻辑和rstatix返回的paste结构表达式一致。

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