如何用自定义函数格式化ggplot+ggpubr图的p值及访问图形对象？

方法一：绘图时直接应用自定义函数（推荐） #

不需要事后修改图形对象，直接在stat_compare_means中指定label参数为你的自定义函数custom_round即可。这样函数会直接对计算出的p值进行格式化：

# 重新生成带自定义p值格式的图形
p1_custom <- bp + stat_compare_means(
  method = "t.test",
  label = custom_round,  # 替换为自定义格式化函数
  show.legend = FALSE,
  paired = TRUE,
  comparisons = list(c("Time point 1", "Time point 2"))
)

# 显示图形
p1_custom

示例中的p值0.041会被格式化为p = 0.04，若p值小于0.01则显示p <.01。

方法二：修改已生成的图形对象p1 #

如果已经生成了p1对象，可通过ggplot_build提取并修改其中的p值文本：

# 提取图形的构建数据
p1_built <- ggplot_build(p1)

# 获取原始p值并转换为数值类型
original_p <- as.numeric(p1_built$data[[2]]$p.format[1])

# 用自定义函数格式化p值
formatted_p <- custom_round(original_p)

# 替换图形中的p值文本
p1_built$data[[2]]$label[1] <- formatted_p

# 重新转换为图形对象并显示
p1_modified <- ggplot_gtable(p1_built)
plot(p1_modified)

注意：p1_built$data中的索引（如[[2]]）可能因图形元素数量不同而变化，需根据实际情况调整。

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