Gostaria de ajuda para posicionar o label do geom_text (que no caso seria um teste de médias) exatamente acima de cada barra de erro, como fiz as barras de erro por tratamento, elas ficaram de tamanhos distintos, assim sempre tenho que ajustar conforme a maior barra, enquanto que nos tratamentos com menor barra de erro, acaba ficando um espaço grande da barra até o label e visualmente não fica bonito.
O script resumido:
IC = data.frame(
"Fator1" = c(rep("A",4),
rep("B",4)),
"Fator2" = c("0","1","2","3"),
"LL"= c(IC_A0$conf.int[1],
IC_A1$conf.int[1],
IC_A2$conf.int[1],
IC_A3$conf.int[1],
IC_B0$conf.int[1],
IC_B1$conf.int[1],
IC_B2$conf.int[1],
IC_B3$conf.int[1]),
"Mean" = c(IC_A0$estimate,
IC_A1$estimate,
IC_A2$estimate,
IC_A3$estimate,
IC_B0$estimate,
IC_B1$estimate,
IC_B2$estimate,
IC_B3$estimate),
"UL" = c(IC_A0$conf.int[2],
IC_A1$conf.int[2],
IC_A2$conf.int[2],
IC_A3$conf.int[2],
IC_B0$conf.int[2],
IC_B1$conf.int[2],
IC_B2$conf.int[2],
IC_B3$conf.int[2]),
"TK" = c("aB","aB","bB","aA",
"aA","aC","bB","aC"))
ggplot(IC, aes(x = Fator2, y = Mean, fill = Fator1))+
geom_bar(stat = "identity",
position = position_dodge())+
geom_errorbar(aes(
ymax = UL,
ymin = LL),
position = position_dodge(0.9),
width = 0.2,
lwd = 0.6,
cex=1.2
) +
geom_text(aes(label=TK), family = "serif",
vjust=-6.0,
position = position_dodge(0.9))```