在R ggplot中使用“ stat_compare_means”标记P值

Question

如果p值小于或等于0并且具有大于或等于4个小数点，并且如果p值小于或等于4，则是否可以在ggplot中向stat_compare_means添加小于（“ <”）符号p值小于或等于3个小数点，然后保持原样（例如，如果p = 0.001然后保持原样，并且p = 0.0001打印< 0）？

我尝试将sprintf与p = %0.2f一起使用，它最多可以打印2个小数点：

p1 <- p1 + stat_compare_means(size = 2.5, label.x = 2.5, label.y = 27.5, fontface = "bold",
                              aes(label = sprintf("p = %0.2f", as.numeric(..p.format..)))
                              )

但是，这不是我想要的。

我实际上可以手动添加小于号，但是我想知道是否可以创建一个函数来避免这种情况。