代码
df1<-data.frame(x=c("A","A","A","B","B","B","A","A","A","B","B","B"),
y=c(1,1,1,4,5,6,1,2,3,4,5,6),
group=c("G1","G1","G1","G1","G1","G1",
"G2","G2","G2","G2","G2","G2"))
library(ggplot2)
ggplot()+
geom_jitter(data=df1,aes(x=group,y=y,color=x),
position = position_jitterdodge(0.2))

网友评论