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

Cambiar la forma en que ordena los ejes.

Browse Source
This commit is contained in:
Costa
2022-02-04 15:20:59 +01:00
parent 2cd480bfd0
commit 41d73a8396
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/ggcorrplot.R
+5 -2
View File
@@ -16,9 +16,12 @@ ggcorrplot<-function(df, var, color="#FFFFFF00", stat="signif"){
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
df$Var1<-factor(df$Var1, levels=order$x)
df$Var2<-factor(df$Var2, levels=order$y)
ggplot(df, aes(Var1, Var2))+ ggplot(df, aes(Var1, Var2))+
scale_x_discrete(limits=order$x)+ # scale_x_discrete(limits=order$x)+
scale_y_discrete(limits=order$y)+ # scale_y_discrete(limits=order$y)+
geom_tile(aes(fill=Value), color=color)+ geom_tile(aes(fill=Value), color=color)+
geom_text(data=df.pval, aes(label=Value), color="white")+ geom_text(data=df.pval, aes(label=Value), color="white")+
scale_fill_gradientn(colors=col2(200))+ scale_fill_gradientn(colors=col2(200))+