如何解决用格格雷佩尔和抖动点标记多面图
我试图绘制三个箱形图并始终标记两个最高值。
我尝试创建一个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创建
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。