将geom_text与geom_jitter点对齐

Question

如何在R ggplot2的下图中将文本标签与抖动点对齐（沿x轴尺寸）？

library(dplyr)
library(ggplot2)
mtcars %>% 
    ggplot(aes(am, wt, group = am, label = wt)) +
    geom_boxplot(outlier.shape = NA) +
    geom_jitter() +
    geom_text()

Answer 1

一种简便的解决方案是在.onSnaphot和position_jitter中都用相同的geom_text指定geom_jitter。

seed