如何调整出现在GGally:：ggscatmat图上的Pearson相关值的位置？

我希望在新冠肺炎危机期间，全世界的每个人都是安全的

我为这个问题挣扎了几天。我正在使用

ggscatmat

计算并创建变量之间的皮尔逊相关性图。在某些图形中，值不在正方形的中心。我尝试了很多选择，但都不管用：/

所以，我的代码是：

attach(DataFile)

DataFile <- rename.variable(DataFile,"NO3 Rem (kg)","NO3 Remove(kg)")

DataFile$Month <- factor(DataFile$Month, levels = c("April 2017","1st Half May 2017","May 2017","June 2017","July 2017","1st Half Aug 2017","Aug 2017","Sept 2017","Oct 2017","Nov 2017","2nd Half Nov  2017"))

DataFile$Depth <- factor(DataFile$Depth, levels = c("0-2"))

Surface <- subset(DataFile, Name %in% c("1-3, Upper third") & Month %in% c("June 2017","July 2017","1st Half Aug 2017","Aug 2017","Sept 2017"))

df <- Surface %>% select(c(Name,SOM,`Water Depth(m)`,`NO3 Remove(kg)`,`Avg T©`,`Flow(m3/s)`,`Rain(mm)`))

GGally::ggscatmat(df, corMethod = "pearson") + theme(axis.text.y = element_text(face = "bold", size = 12),strip.text.x = element_text(face = "bold", size = 12),strip.text.y = element_text(face = "bold", size = 12),axis.text.x = element_text(face = "bold", size = 10), legend.text = element_text(face = "bold", size = 15), legend.title = element_text(face = "bold", size = 15))+ ggtitle("Pearson Correlation- Upper Third of CW1- During Summer 2017 Sampling Period")+ theme(plot.title = element_text(hjust = 0.5))

附加（数据文件）
数据文件请您编辑代码，以便我们可以查看问题，以便更轻松地帮助您。谢谢您的评论。我确实编辑了它。希望现在更容易阅读。