R 道奇不工作了

在我的图形中，我有重叠，尝试使用position_dodge和position_dodge，但没有效果。我制作了一个复制该问题的示例程序：

data1 <- data.frame(source=c("group1", "group1"), q=c("Q1", "Q2"), mean=c(2.6, 1.9), se=c(0.16, 0.4))
data2 <- data.frame(source=c("group2", "group2"), q=c("Q1", "Q2"), mean=c(2.4, 0.9), se=c(0.2, 0.1))
pd <- position_dodge(1)
ggplot(data1) + 
  geom_errorbar(data=data1, position=pd, width=.3, aes(x=q,ymin=mean-se,ymax=mean+se,color=source)) +
  geom_point(size=3, position=pd,data = data1, aes(x=q, y=mean, color=source, shape=source)) + 
  geom_errorbar(data=data2, position=pd, width=.3, aes(x=q,ymin=mean-se,ymax=mean+se,color=source)) +
  geom_point(size=3, position=pd,data = data2, aes(x=q, y=mean, color=source, shape=source))

---

data1Dodgind不工作，因为您有两个数据帧。将所有数据放在一个数据帧中，然后它就会工作

data3<-rbind(data1,data2)
ggplot(data3)+
      geom_errorbar(position=pd, width=.3, aes(x=q,ymin=mean-se,ymax=mean+se,color=source)) +
      geom_point(size=3, position=pd,aes(x=q, y=mean, color=source, shape=source)) 

data3Dodgind不工作，因为您有两个数据帧。将所有数据放在一个数据帧中，然后它就会工作

data3<-rbind(data1,data2)
ggplot(data3)+
      geom_errorbar(position=pd, width=.3, aes(x=q,ymin=mean-se,ymax=mean+se,color=source)) +
      geom_point(size=3, position=pd,aes(x=q, y=mean, color=source, shape=source)) 

data3