r - 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

创建类似于 this image 的东西有人知道有可能在同时执行 position_dodge 时将我所有的标签在 Y 中移动相同的距离吗？我在其他帖子中找不到这个问题的答案

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))