```r
g0<-ggplot(d,aes(x=predictor,y=results))
g0+geom_point(pch=21,bg=2)+stat_summary(fun.y=mean,geom="point",size=4)
```

<img src="Quantitative_and_Spatial_files/figure-html/unnamed-chunk-133-1.png" width="672" />