如何让geom_path对应geom_beeswarm点

如何解决如何让geom_path对应geom_beeswarm点

我一直试图在一个小样本中可视化几个特征的关联。

这是一个示例数据：

set.seed(309)
dat <- data.frame(id=c(1:9,5:9,7:9),count=c(sample(1:4,9,prob=c(.5,.3,.2,.1),replace = T),c(1,1,3,2,4),1)),strain=c(rep("A",9),rep("B",5),rep("C",3)))
dat$feature <- (dat$id%%2==0)*1 + (dat$id%%2!=0)*0
dat$id <- as.factor(dat$id)
dat$feature <- factor(dat$feature,labels=c("X","Y"))

我像这样用 geom_point 试过：

library(ggplot2)
ggplot(dat,aes(x=strain,y=count,group=id))+ 
  geom_point(aes(col=feature),size=10,position = position_dodge(width = 0.5))+
  geom_path(position = position_dodge(width = 0.5))+  theme_minimal()

example 1 with geom_point

问题是无论我在 width 中有什么 position_dodge() 点都是重叠的。 geom_beeswarm 产生更好看的情节：

library(ggbeeswarm)
ggplot(dat,group=id))+ 
  geom_beeswarm(aes(col=feature),cex=6.5)+
  geom_path(position = position_dodge(width = 0.5))+  theme_minimal()

example 2 with geom_beeswarm

但是与 geom_path 的联系分崩离析。这些行应该连接具有相同 ID 的记录。

有没有办法让geom_path对应geom_beeswarm点？或者，有没有办法调整 geom_point 以获得像 geom_beeswarm 这样的等距点？