子集数据时如何将 geom_repel_text 与 geom_jitter 点对齐？

Question

我正在制作箱线图和抖动来显示每个单独的点。 然后我在每个点上放置文本标签。 这工作正常，但是一旦我尝试对我想要标签的点进行子集化，文本就不再对齐了。

这是我的代码（在此页面有一些帮助）： Aligning geom_text to geom_jitter points

library(ggplot2)
ggplot(mtcars, aes(vs, wt, group = am, label = wt)) +
  geom_boxplot(outlier.shape = NA) +
  geom_jitter(position = position_jitter(seed = 1)) +
  geom_text_repel(data = subset(mtcars, wt > 3),
                  position = position_jitter(seed = 1))

这是我的情节。 如您所见，标签未与点对齐。

任何想法为什么这不起作用？

Answer 1

问题是，通过子集设置ggrepel只会看到这部分数据，并假设您只是在绘制子集。 如果您希望ggrepel考虑所有数据，请使用ifelse条件来选择要标记的点而不是子集：

library(ggplot2)
library(ggrepel)
ggplot(mtcars, aes(vs, wt, group = am, label = wt)) +
  geom_boxplot(outlier.shape = NA) +
  geom_jitter(position = position_jitter(seed = 1)) +
  geom_text_repel(aes(label = ifelse(wt > 3, wt, "")), position = position_jitter(seed = 1))

Answer 2

另一种方法是使用自定义 alpha 使您不想显示的权重不可见：

library(ggplot2)

ggplot(within(mtcars, visible <- wt > 3),
       aes(vs, wt, group = am, label = wt)) +
  geom_boxplot(outlier.shape = NA) +
  geom_jitter(position = position_jitter(seed = 1)) +
  geom_text_repel(position = position_jitter(seed = 1),
                  aes(alpha = visible)) +
  scale_alpha_manual(values = c(0, 1)) +
  guides(alpha = guide_none())