ggplot(modelFrame,aes(x=Month.order,y=mean,color=Month.order)) +
geom_point()+
geom_linerange(data=modelFrame,aes(x=Month.order,ymin=min,ymax=(max)), lwd=1,position=position_dodge(width=1/2))+labs(y="Number of Ova/Fish on the log 10 Scale", x="Month") +theme_bw()+ ggtitle("Effect of Month on Number of Ova Produced per Fish")