问题描述
我一直试图在一个小样本中可视化几个特征的关联。
这是一个示例数据:
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()
问题是无论我在 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()
但是与 geom_path
的联系分崩离析。这些行应该连接具有相同 ID 的记录。
有没有办法让geom_path
对应geom_beeswarm
点?或者,有没有办法调整 geom_point
以获得像 geom_beeswarm
这样的等距点?
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)