marcelcosta/CitFuns
1
0
Fork 0
Code Issues 4 Pull Requests Projects Releases Wiki Activity

Corrigiendo el orden de la triangulación.

Browse Source
This commit is contained in:
Costa
2022-02-04 15:35:47 +01:00
parent d51fe8a64d
commit 0281fa95c8
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/ggcorrplot.R
+5 -2
View File
@@ -3,6 +3,11 @@ ggcorrplot<-function(df, var, color="#FFFFFF00", stat="signif", tri="all"){
mcor<-cor(m.df, m.df, use="pairwise.complete.obs") # Por defecto usa el método de Pearson. mcor<-cor(m.df, m.df, use="pairwise.complete.obs") # Por defecto usa el método de Pearson.
mpval<-Hmisc::rcorr(as.matrix(m.df))$P mpval<-Hmisc::rcorr(as.matrix(m.df))$P
order<- mcor %>% as.data.frame() %>% add_column(Var1=rownames(mcor),.before=1) %>% clustsort
mor<-mcor[order$y, order$x]
mpval<-mpval[order$y, order$x]
df<-mcor %>% as.data.frame() df<-mcor %>% as.data.frame()
if (tri == "lower"){ if (tri == "lower"){
df[lower.tri(df, diag=T)]<-NA df[lower.tri(df, diag=T)]<-NA
@@ -23,8 +28,6 @@ ggcorrplot<-function(df, var, color="#FFFFFF00", stat="signif", tri="all"){
df.pval$Value<-gtools::stars.pval(df.pval$Value) df.pval$Value<-gtools::stars.pval(df.pval$Value)
} }
order<- mcor %>% as.data.frame() %>% add_column(Var1=rownames(mcor),.before=1) %>% clustsort
df$Var1<-factor(df$Var1, levels=order$x) df$Var1<-factor(df$Var1, levels=order$x)
df$Var2<-factor(df$Var2, levels=order$y) df$Var2<-factor(df$Var2, levels=order$y)