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

Corrección error en el orden del escalado.

Browse Source
This commit is contained in:
Marcel Costa
2022-02-05 16:51:31 +01:00
parent eeba7ea855
commit a2d10b2308
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/ggheatmap.R
+3 -3
View File
@@ -18,9 +18,6 @@ ggheatmap<-function(df, x=NULL, y=NULL, value=NULL, grouping="mean", exclude_gro
} }
order<-clustsort(df %>% spread(VarY,Value) %>% select(!all_of(exclude_group)) %>% as.data.frame) order<-clustsort(df %>% spread(VarY,Value) %>% select(!all_of(exclude_group)) %>% as.data.frame)
df$VarX<-factor(df$VarX, levels=order$x)
df$VarY<-factor(df$VarY, levels=order$y)
if (scale != "none"){ if (scale != "none"){
if (scale == "rows"){ if (scale == "rows"){
cols<-unique(df$VarY) cols<-unique(df$VarY)
@@ -36,6 +33,9 @@ ggheatmap<-function(df, x=NULL, y=NULL, value=NULL, grouping="mean", exclude_gro
} }
} }
df$VarX<-factor(df$VarX, levels=order$x)
df$VarY<-factor(df$VarY, levels=order$y)
df %>% df %>%
ggplot(aes(VarX, VarY, fill=Value))+ ggplot(aes(VarX, VarY, fill=Value))+
labs(x=x, y=y)+ labs(x=x, y=y)+