将geom_text与geom_jitter点对齐

Question

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

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

Answer 1

简单的解决方法是指定position_jitter在这两个geom_text与geom_jitter具有相同seed。

library(ggplot2)
ggplot(mtcars, aes(am, wt, group = am, label = wt)) +
    geom_boxplot(outlier.shape = NA) +
    geom_jitter(position = position_jitter(seed = 1)) +
    geom_text(position = position_jitter(seed = 1))