如何将斯皮尔曼相关性 p 值以及相关系数添加到 ggpairs 中？

使用以下代码在 R 中构建 ggpairs 图形。

df 是一个数据帧，包含 6 个连续变量和 1 个Group多变的

ggpairs(df[,-1],columns = 1:ncol(df[,-1]),
mapping=ggplot2::aes(colour = df$Group),legends = T,axisLabels = "show", 
upper = list(continuous = wrap("cor", method = "spearman", size = 2.5, hjust=0.7)))+ 
theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
axis.line = element_line(colour = "black"))

我正在尝试将斯皮尔曼相关性的 p 值添加到生成的图的上面板（即附加到斯皮尔曼相关系数）。

通常，p 值的计算方法为cor.test方法传递为“Spearman”

还知道 StackOverFlow 帖子讨论与此类似的查询，但我需要ggpairs，该解决方案不起作用。另外，之前的查询还没有解决。

如何添加使用 R 中的对绘制的 Spearman 相关系数的 p 值 https://stackoverflow.com/questions/22461183/how-to-add-p-values-for-spearman-correlation-coefficients-plotted-using-pairs-in

不确定是否是因为您有组或使用不同版本的包（我使用的是 GGally_2.1.1），但以下代码非常适合我。

df %>% ggpairs(upper = list(continuous = wrap("cor", method = "spearman")))