Question

我试图绘制三个箱形图并始终标记两个最高值。

我尝试创建一个position元素，并使用它来获得点和标签的相同位置，但是以某种方式不起作用。

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创建}

用格格雷佩尔和抖动点标记多面图

1 个答案: