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

Añadiendo la posibilidad de cambiar el método de correlación.

Browse Source
This commit is contained in:
Marcel Costa
2022-02-05 08:17:14 +01:00
parent f6b014b0b8
commit f9101f2351
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
@@ -1,7 +1,7 @@
ggcorrplot<-function(df, var, color="#FFFFFF00", stat="signif", tri="all"){ ggcorrplot<-function(df, var, color="#FFFFFF00", stat="signif", tri="all", method="pearson"){
m.df<-df %>% spread(Cyt, Value) %>% select(-pats) m.df<-df %>% spread(Cyt, Value) %>% select(-pats)
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", method = method) # Por defecto usa el método de Pearson.
mpval<-Hmisc::rcorr(as.matrix(m.df))$P mpval<-Hmisc::rcorr(as.matrix(m.df), type=method)$P
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