From c1bd92a7c93dbd4e269d1e67dad3b5b3a73107aa Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Tue, 24 Jan 2023 15:06:15 +0100 Subject: [PATCH] =?UTF-8?q?Corregir=20bug,=20en=20cada=20panel=20sal=C3=AD?= =?UTF-8?q?a=20misma=20y.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- R/ggstats_add_xy.R | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/R/ggstats_add_xy.R b/R/ggstats_add_xy.R index 7d86e10..aa7e407 100644 --- a/R/ggstats_add_xy.R +++ b/R/ggstats_add_xy.R @@ -69,6 +69,14 @@ ggstats_add_xy<-function(table_stat, table, xcol=NULL, group, y="max", bracket.o by=diff(range(table[,value.var], na.rm = T))*bracket.inspace) } } + }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]]+ + diff(range(table[,value.var], na.rm = T))* + bracket.inspace*(nrow(table_stat[table_stat[,exclude_group] == dia,])-1), + by=diff(range(table[,value.var], na.rm = T))*bracket.inspace) + } } return(cbind(table_stat,t) %>% as_tibble) }