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

简单的解决方案是指定 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))