SRM 19 Graph Update

ggplot(TR_Graph, aes(x=Site, y=value, color=Sampling))+
  geom_boxplot(position=position_dodge(.6), size=3, width=0.5)+
  scale_color_brewer(palette="Set1")+
  labs(y="Structure (dm)", x="Site")+
  theme_bw()+
  theme(panel.grid.minor = element_blank() ,
        axis.title=element_text(size=28, face="bold"),
        axis.text=element_text(size=16),
        legend.title=element_text(size=20, face="bold"),
        legend.text=element_text(size=20),
        legend.position = c(0.9,0.9))

ggplot(HP_Adj, aes(x=Site, y=Adjusted, color=Sampling))+
  geom_boxplot(position=position_dodge(.6), size=3, width=0.5)+
  labs(y="Flowering Stems per sq m", x="Site")+
  scale_color_brewer(palette="Set1")+
  theme_bw()+
  theme(panel.grid.minor = element_blank() ,
        axis.title=element_text(size=28, face="bold"),
        axis.text=element_text(size=20),
        legend.title=element_text(size=20, face="bold"),
        legend.text=element_text(size=20),
        legend.position = c(0.9,0.9))

ggplot(SRM_CI_Graph, aes(x=Response, Y=Mean, color=Response))+
  geom_point(aes(y=Mean),size=9)+
  scale_color_brewer(palette="Set1")+
  scale_fill_brewer(palette="Set1")+
  geom_hline(yintercept = 0, color="black", linetype="dashed")+
  geom_errorbar(aes(ymin=Lower, ymax=Upper),size=4, width=0.2)+
  coord_cartesian(ylim=c(-175,100))+
  scale_y_continuous(breaks=c(-150,-100,-50,0,50,100))+
  xlab ("Response")+
  ylab ("Percent Difference + 95 % CI")+
  guides(shape=guide_legend(title=""), color=guide_legend(title=""))+
  theme_bw()+
  theme(panel.grid.minor = element_blank() ,
        axis.title=element_text(size=30, face="bold"),
        axis.text=element_text(size=16),
        legend.title=element_text(size=34, face="bold"),
        legend.text=element_text(size=20),
        legend.position = "bottom")