重新格式化表（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..))))

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