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

Desgrupar después de centralizar.

Browse Source
This commit is contained in:
Marcel Costa
2022-02-05 09:44:03 +01:00
parent f9101f2351
commit f9dd553a8c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/ggheatmap.R
+2 -2
View File
@@ -6,10 +6,10 @@ ggheatmap<-function(df, x=NULL, y=NULL, value=NULL, grouping="mean"){
df<-rename(df, "VarX"=all_of(x), "VarY"=all_of(y), "Value"=all_of(value)) df<-rename(df, "VarX"=all_of(x), "VarY"=all_of(y), "Value"=all_of(value))
if (grouping == "mean"){ if (grouping == "mean"){
df<-df %>% group_by(VarX,VarY) %>% summarise(Value=mean(Value)) df<-df %>% group_by(VarX,VarY) %>% summarise(Value=mean(Value)) %>% ungroup
} }
if (grouping == "median"){ if (grouping == "median"){
df<-df %>% group_by(VarX,VarY) %>% summarise(Value=median(Value)) df<-df %>% group_by(VarX,VarY) %>% summarise(Value=median(Value)) %>% ungroup
} }
order<-clustsort(df %>% spread(VarY,Value) %>% as.data.frame) order<-clustsort(df %>% spread(VarY,Value) %>% as.data.frame)