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

Hacer que no ordene si una de las dimensiones no tiene más de un elemento para que no de error en el hclust.

Browse Source
This commit is contained in:
Costa
2022-03-24 12:08:43 +01:00
parent fb62bdf49d
commit bd98a08c31
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/ggheatmap.R
+6
View File
@@ -16,7 +16,13 @@ ggheatmap<-function(df, x=NULL, y=NULL, value=NULL, grouping="mean", exclude_gro
if (grouping == "median"){ if (grouping == "median"){
df<-df %>% summarise(Value=median(Value)) %>% ungroup df<-df %>% summarise(Value=median(Value)) %>% ungroup
} }
if (length(unique(df$VarX)) > 1 & length(unique(df$VarY)) > 1){
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)
}else{
order<-list("x"=df %>% pull(VarX) %>% unique, "y"=df %>% pull(VarY) %>% unique)
}
if (scale != "none"){ if (scale != "none"){
if (scale == "rows"){ if (scale == "rows"){