r - R ggscatter p值四舍五入？

Question

亲爱的朋友们

我目前正在使用 R 使用 ggscatter 绘制加速度计派生数据。由于数据高度相关，因此绘制的 p 值四舍五入为 1，从科学上讲，这有点......我们称之为怪异。当我查看可以传递给 ggscatter 的参数时，没有发现任何有用的东西，我正在寻求帮助。如何确定 ggscatter 如何以小数位数显示 p 值。

我的来源看起来像：

ggscatter(data, x = "Nexus1", y = "Nexus2",add = "reg.line", 
          conf.int = TRUE, cor.coef = TRUE, cor.method = "pearson", 
          xlab = "Nexus 1 [m/s^2]", ylab = "Nexus 2 [m/s^2]")

任何提示都非常感谢！- 克劳迪奥