From 81e39022506a751606e25a0bf927e4eb5b425305 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Fri, 4 Feb 2022 14:47:44 +0100
Subject: [PATCH] =?UTF-8?q?Corregido=20la=20selecci=C3=B3n=20de=20color=20?=
 =?UTF-8?q?en=20ggcorrplot.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/ggcorrplot.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/ggcorrplot.R b/R/ggcorrplot.R
index ed4b866..b63666e 100644
--- a/R/ggcorrplot.R
+++ b/R/ggcorrplot.R
@@ -1,4 +1,4 @@
-ggcorrplot<-function(df, var){
+ggcorrplot<-function(df, var, color="#FFFFFF00"){
   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.
   mpval<-Hmisc::rcorr(as.matrix(m.df))$P
@@ -13,6 +13,6 @@ ggcorrplot<-function(df, var){
   ggplot(df, aes(Var1, Var2, fill=Value))+
     scale_x_discrete(limits=order$x)+
     scale_y_discrete(limits=order$y)+
-    theme_heatmap(line.color="black")+
+    theme_heatmap(line.color=color)+
     geom_text(data=df.pval, aes(label=round(Value, 2)))
 }