Arreglando la función ggcorrplot, que siempre llamaba a las columnas Cyt y Value.

2022-02-06 08:40:51 +01:00
parent 62547fecd5
commit cb575ac297
2 changed files with 6 additions and 4 deletions
@@ -1,5 +1,6 @@
-ggcorrplot<-function(df, var, color="#FFFFFF00", stat="signif", tri="all", method="pearson"){
-  m.df<-df %>% spread(Cyt, Value) %>% select(-pats)
+ggcorrplot<-function(df, var, value,color="#FFFFFF00", stat="signif", tri="all", method="pearson"){
+  allnames<-colnames(df)
+  m.df<-df %>% spread(all_of(var), all_of(value)) %>% select(!any_of(allnames))
  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), type=method)$P