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

Correct for more than 1 facet.

Browse Source
This commit is contained in:
Marcel Costa
2025-03-06 13:46:43 +01:00
parent ab96f5ec6a
commit 217bca2480
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/ggstats_add_xy.R
+4 -4
View File
@@ -70,11 +70,11 @@ ggstats_add_xy<-function(table_stat, table, xcol=NULL, group, y="max", bracket.o
}
}
}else{
for (dia in unique(pull(table_stat,all_of(exclude_group)))){
t[table_stat[,exclude_group] == dia, "y.position"]<-seq(t[table_stat[,exclude_group] == dia,"y.position"][[1,1]],
t[table_stat[,exclude_group] == dia,"y.position"][[1,1]]+
for (dia in unique(pull(mutate(table_stat,dia=paste0(!!!syms(exclude_group))),dia))){
t[apply(table_stat[,exclude_group], 1, paste, collapse="") == dia, "y.position"]<-seq(t[apply(table_stat[,exclude_group], 1, paste, collapse="") == dia,"y.position"][[1,1]],
t[apply(table_stat[,exclude_group], 1, paste, collapse="") == dia,"y.position"][[1,1]]+
diff(range(table[,value.var], na.rm = T))*
bracket.inspace*(nrow(table_stat[table_stat[,exclude_group] == dia,])-1),
bracket.inspace*(nrow(table_stat[apply(table_stat[,exclude_group], 1, paste, collapse="") == dia,])-1),
by=diff(range(table[,value.var], na.rm = T))*bracket.inspace)
}
}