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

Corrección error tipográfico.

Browse Source
This commit is contained in:
Costa
2022-02-04 15:42:03 +01:00
parent 7c9e2b7f89
commit 4ed03c2e25
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/ggcorrplot.R
+3 -3
View File
@@ -5,19 +5,19 @@ ggcorrplot<-function(df, var, color="#FFFFFF00", stat="signif", tri="all"){
order<- mcor %>% as.data.frame() %>% add_column(Var1=rownames(mcor),.before=1) %>% clustsort order<- mcor %>% as.data.frame() %>% add_column(Var1=rownames(mcor),.before=1) %>% clustsort
mor<-mcor[order$y, order$x] mcor<-mcor[order$y, order$x]
mpval<-mpval[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=F)]<-NA
} }
df<-df %>% add_column(Var1=rownames(mcor),.before=1) %>% df<-df %>% add_column(Var1=rownames(mcor),.before=1) %>%
gather(Var2, Value, -Var1) %>% filter(!is.na(Value)) gather(Var2, Value, -Var1) %>% filter(!is.na(Value))
df.pval<-mpval %>% as.data.frame() df.pval<-mpval %>% as.data.frame()
if (tri == "lower"){ if (tri == "lower"){
df.pval[lower.tri(df.pval, diag=T)]<-NA df.pval[lower.tri(df.pval, diag=F)]<-NA
} }
df.pval<-df.pval %>% add_column(Var1=rownames(mpval),.before=1) %>% df.pval<-df.pval %>% add_column(Var1=rownames(mpval),.before=1) %>%
gather(Var2, Value, -Var1) %>% filter(!is.na(Value)) gather(Var2, Value, -Var1) %>% filter(!is.na(Value))