使用position_dodge（）的问题

Question

使用颜色和形状时，我在position_dodge上遇到了麻烦。

我想绘制一个实验的结果，该实验在许多地点重复了两种处理方法，我想用图形强调某些数据点。

由于x轴是一个因素，因此我使用position_dodge来分开处理。到目前为止一切顺利，请参见下面的图1。

但是，如果我想通过更改形状来强调特定的数据点，请参见图2。现在，数据点已分为三列，而不是两列。

有关如何制作图形的任何建议，如下图第三面板所示。

site <- rep(c("site1"),times=6) 
treatment <- rep(c("one","two"),times=2,each=3) 
set.seed(21)
response <- c(rnorm(3,mean=4),
              rnorm(3,mean=5))

special <- as.factor(c(0,1,0,0,0,0))

mydata <- data.frame(site,treatment,response,special)

#graph 1
ggplot()+
  geom_point(data=mydata,
             aes(x = site,
                y = response,
                colour=treatment),
             size=4,
             position=position_dodge(1))

#graph 2
ggplot()+
  geom_point(data=mydata,
             aes(x = site,
                 y = response,
                 colour=treatment,
                 shape=special),
             size=4,
             position=position_dodge(0.5))