r - 重新格式化表 (R) 中的 p 值

Question

假设我有这个数据框。

 df <- data.frame(c(1.00000, 0.45983, 0.00134, 0.0675), 
      c(0.00001, 0.00000000064992, 0.9847, 
      0.0000000000000000000000000000000023482), 
      c(0.3452, 0.00011217, 0.023825, 0.00000055825))
 names(df) <- c('A', 'B', 'C')

这些代表在别处计算的 p 值。在另一个脚本中，我有下面的代码，它可以很好地根据需要重新格式化 p 值。

 library(ggpubr)
 stat_compare_means(ifelse(p < 2.e-16, paste("p = ", p.format), 
      ifelse(p < 1.e-4, sprintf("p = %2.1e", 
      as.numeric(..p.format..)), sprintf("p = %5.4f", 
      as.numeric(..p.format..))))

请问如何将这些相同的重新格式化条件应用于预先计算的 p 值df？谢谢你。