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

Se puede excluir una variable del grupo.

Browse Source
This commit is contained in:
Marcel Costa
2022-02-05 10:20:29 +01:00
parent f9dd553a8c
commit 0794c9fc1e
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/ggheatmap.R
+9 -4
View File
@@ -1,15 +1,20 @@
ggheatmap<-function(df, x=NULL, y=NULL, value=NULL, grouping="mean"){
ggheatmap<-function(df, x=NULL, y=NULL, value=NULL, grouping="mean", exclude_group=NULL){
if (is.null(x)){x=colnames(df)[1]}
if (is.null(y)){y=colnames(df)[2]}
if (is.null(value)){value=colnames(df)[3]}
df<-rename(df, "VarX"=all_of(x), "VarY"=all_of(y), "Value"=all_of(value))
if (!is.null(exclude_group)){
df<-df %>% group_by(VarX,VarY)
}else{
df<-df %>% group_by(VarX,VarY,all_of(exclude_group))
}
if (grouping == "mean"){
df<-df %>% group_by(VarX,VarY) %>% summarise(Value=mean(Value)) %>% ungroup
df<-df %>% summarise(Value=mean(Value)) %>% ungroup
}
if (grouping == "median"){
df<-df %>% group_by(VarX,VarY) %>% summarise(Value=median(Value)) %>% ungroup
df<-df %>% summarise(Value=median(Value)) %>% ungroup
}
order<-clustsort(df %>% spread(VarY,Value) %>% as.data.frame)