用 ggrepel 和抖动点标记多面图

Question

我正在尝试绘制三个箱线图并始终标记 2 个最高值。

我尝试创建一个位置元素并使用它来为点和标签获取相同的位置，但不知何故这不起作用。

set.seed(1)
df <- 
  data.frame(a=rep(letters, 3),
             b=LETTERS[1:3],
             int=runif(78, 15, 30))
jitter_pos <- position_jitter(width=.4, seed = 1)
ggplot(df,
       aes(1, int,
           color=b)) +
  geom_point(position=jitter_pos) +
  geom_boxplot(alpha=.3, outlier.shape=NA, fill=NA, color='#993404') +
  facet_wrap(~ b) +
  guides(color=FALSE) +
  geom_label_repel(data=df %>%
                     group_by(b) %>%
                     arrange(desc(int)) %>%
                     slice(1:2),
                   aes(label=a),
                   size=2.5, color='black',
                   fill='#FFFFFF33',
                   box.padding=1,
                   position=jitter_pos)

我很确定这只是一个小错误，但不知何故我找不到我的错误。标签与点位置不匹配。

也许更好的解决方案是在 x 轴上使用 b 并以某种方式使用 jitterdodge，但这并没有奏效，所以我试图得到它运行方面.所以还没有对我有用。

Answer 1

你的错误在于 position_jitter 的行为，这个问题在 this github issue 中进行了详细讨论。

ggrepel 作者建议的解决方案是向数据框添加一个明确的 label 列，并为要省略的行添加空字符串：

library(ggplot2)
library(ggrepel)
library(tidyverse)
set.seed(1)
df <- 
  data.frame(a=rep(letters, 3),
             b=LETTERS[1:3],
             int=runif(78, 15, 30)) %>%
  group_by(b) %>%
  mutate(label = if_else(rank(-int) %in% 1:2, as.character(a), ""))
jitter_pos <- position_jitter(width=.4, height = 0, seed = 1)



ggplot(df,
       aes(1, int,
           color=b)) +
  geom_jitter(position=jitter_pos) +
  geom_boxplot(alpha=.3, outlier.shape=NA, fill=NA, color='#993404') +
  guides(color=FALSE) +
  facet_wrap(~ b) +
  geom_label_repel(aes(x=1, y=int, label=label),
                   size=2.5, color='black',
                   fill='#FFFFFF33',
                   box.padding=1,
                   position=jitter_pos)

^{由 reprex package (v0.3.0)}

于 2020-09-01 创建

用 ggrepel 和抖动点标记多面图

Labeling faceted plot with ggrepel and jittered dots

r

ggplot2

ggrepel