position_dodge и nudge_y вместе

Question

Я пытаюсь добавить метки (буквы) над барплотом, используя функцию ggplot2 geom_text.Мои столбцы разделены с помощью position=position_dodge(), поэтому мне нужно применить то же самое для новых меток.Однако я хотел бы также использовать nudge_y для отделения меток от панели.Если я пытаюсь использовать оба вместе, R жалуется, что я могу использовать только один из этих вариантов.Я хотел бы сделать что-то вроде этого:

Tukey.labels <- geom_text(data=stats,
                    aes(x=factor(Treatment2), y=x.mean, 
                        label=Tukey.dif),
                    size=4, nudge_y=3,            # move letters in Y
                    position=position_dodge(0.5)) # move letters in X

Чтобы создать что-то вроде этого изображения Кто-нибудь знает возможность сдвинуть все мои метки на одинаковое расстояние в Y при выполнении position_dodge в то же время?Я не смог найти ответ на этот вопрос в других сообщениях

Answer 1

Трудно устранить неисправность без воспроизводимого примера.Надеюсь, это поможет:

library(dplyr); library(ggplot2)
ggplot(mtcars %>% rownames_to_column("car") , 
       aes(as.factor(cyl), mpg, group = car)) + 
  geom_col(position = position_dodge(0.9)) +
  geom_errorbar(aes(ymin = mpg - wt,
                    ymax = mpg + wt),
                position = position_dodge(0.9)) +
  geom_text(aes(label = gear, y = mpg + wt), vjust = -0.5,
            position = position_dodge(0.9))