R中ggpubr绘图plotmath如何移除p值前导零保留斜体

在R中使用ggpubr包的expression渲染模式，配合geom_bracket()添加组间比较标注时，需要实现符合APA格式要求的检验统计量斜体排版，实际使用中会遇到两个典型问题：

• 渲染生成的p值前会自动出现不属于原始输入字符串的前导零，无法通过gsub()直接替换字符串内容移除
• 尝试通过text参数配合italics()函数实现数字、普通字母、斜体内容混排时无法得到预期效果

原始复现代码如下：

library(ggpubr)
library(ggplot2)

# 初始写法：p值前存在多余前导零
ggboxplot(df, x = "dose", y = "len") +
 geom_bracket(
   xmin = "0.5", xmax = "1", y.position = 30,
   label = "list(~italic(t)(666)==6.66,~italic(p) < .05)", 
   type = "expression",
   tip.length = c(0.2, 0.02)
 )
 
# gsub替换测试：替换字符串内字符可生效，但无法移除自动添加的前导零
ggboxplot(df, x = "dose", y = "len") +
 geom_bracket(
   xmin = "0.5", xmax = "1", y.position = 30,
   label = gsub(pattern = "p","q",  "list(~italic(t)(666)==6.66,~italic(p) < .05)"), 
   type = "expression",
   tip.length = c(0.2, 0.02)
 )

ggboxplot(df, x = "dose", y = "len") +
 geom_bracket(
   xmin = "0.5", xmax = "1", y.position = 30,
   label = gsub(pattern = "0", "", "list(~italic(t)(666)==6.66,~italic(p) < .05)"), 
   type = "expression",
   tip.length = c(0.2, 0.02)
 )

R内置的plotmath表达式渲染引擎存在默认数值格式化规则：当解析到未加引号的、以小数点开头的小数片段（如示例中的.05）时，会自动将其识别为数值类型对象，按照R基础数值输出规则为小于1的纯小数补全前导零，最终渲染为0.05。
该格式化操作发生在表达式解析渲染阶段，执行时间晚于字符串替换操作，因此直接通过gsub()修改原始输入字符串，无法移除这个渲染阶段自动生成的前导零。

1. expression内斜体、普通文本、数字混排实现方法 #

plotmath原生支持多格式内容混排，核心语法规则如下：

• 需要设置为斜体的内容（如统计量t、p）用italic()函数包裹
• 常规正体的数字、字母直接书写即可；需要强制原样输出、不被引擎自动格式化的内容，用双引号包裹为字符串字面量，或放在plain()函数内
• 不同内容块之间用~添加空格间隔，用*实现无间隔拼接

符合APA格式的标注写法示例（可直接运行，使用ggpubr内置的ToothGrowth数据集替换示例中未定义的df）：

data("ToothGrowth")
ggboxplot(ToothGrowth, x = "dose", y = "len") +
  geom_bracket(
    xmin = "0.5", xmax = "1", y.position = 30,
    label = 'italic(t)(666)==6.66*","~italic(p)~"<"~".05"', 
    type = "expression",
    tip.length = c(0.2, 0.02)
  )

2. 移除plotmath自动添加的p值前导零 #

核心逻辑是阻断plotmath对p值的数值识别，让引擎将其作为纯文本渲染，两种常用写法：

• 写法1：将p值部分用双引号单独包裹为字符串字面量，即上述示例中的~".05"写法，引擎不会对字符串内容做数值格式化，自然不会补前导零
• 写法2：用plain()函数包裹p值内容，强制作为普通正体文本渲染，修改原始代码如下即可：

ggboxplot(ToothGrowth, x = "dose", y = "len") +
  geom_bracket(
    xmin = "0.5", xmax = "1", y.position = 30,
    label = "list(~italic(t)(666)==6.66,~italic(p) < plain('.05'))", 
    type = "expression",
    tip.length = c(0.2, 0.02)
  )

以上两种写法最终渲染效果一致：t、p为斜体，自由度、统计量数值、不等号为正体，p值显示为.05无多余前导零，完全符合APA格式排版要求。

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