Как я могу настроить расположение значений корреляции Пирсона, которые появляются на рисунке GGally :: ggscatmat? - PullRequest
Новая
       43

Как я могу настроить расположение значений корреляции Пирсона, которые появляются на рисунке GGally :: ggscatmat?

0 голосов
/ 22 марта 2020

Я надеюсь, что во всем мире во время кризиса с COVID-19 все в безопасности!

Я боролся с этой проблемой уже пару дней. Я использую 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))

И прикрепленное изображение включает один из графиков, где значения не центрированы!

Я очень ценю любые предложения.

Соотношение Пирсона - значения не центрированы!

...