From d826de7da9069f9448d289bd88ca0dfdc9a6a757 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Fri, 4 Feb 2022 15:10:38 +0100
Subject: [PATCH] Solucionar problema aes para fill y el geom_text.

---
 R/ggcorrplot.R | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/R/ggcorrplot.R b/R/ggcorrplot.R
index 6ebccb1..6d2d3d9 100644
--- a/R/ggcorrplot.R
+++ b/R/ggcorrplot.R
@@ -16,9 +16,13 @@ ggcorrplot<-function(df, var, color="#FFFFFF00", stat="signif"){
 
   order<- mcor %>% as.data.frame() %>% add_column(Var1=rownames(mcor),.before=1) %>% clustsort
 
-  ggplot(df, aes(Var1, Var2, fill=Value))+
+  ggplot(df, aes(Var1, Var2))+
     scale_x_discrete(limits=order$x)+
     scale_y_discrete(limits=order$y)+
-    theme_heatmap(line.color=color)+
-    geom_text(data=df.pval, fill="#FFFFF00",aes(label=Value))
+    geom_tile(aes(fill=Value), color=color)+
+    geom_text(data=df.pval, aes(label=Value))+
+    scale_fill_gradientn(colors=col2(200))+
+    theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust=0.5),
+        panel.background = element_blank(),
+        axis.ticks = element_blank())
 }