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

问题描述

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

我尝试创建一个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，但这在以太坊上没有用，所以我尝试让它以小平面运行。所以对我来说还行不通。

解决方法

您的错误在于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创建}