Single Factor Bar Graph in R

 

zinc=ggplot(data=mean_SRGP_15 ,aes(x=land_type, y=zinc,

                                      fill=factor("") )) +  theme_bw() +

  geom_bar(width=pos,position=position_dodge(pos),stat="identity")+

  geom_errorbar(aes(ymin=mean_SRGP_15$zinc-sd_SRGP_15$zinc,ymax=mean_SRGP_15$zinc+sd_SRGP_15$zinc),

                width=pos/2,

                position=position_dodge(pos))+

  xlab("") + 

  scale_y_continuous(limits = c(0, 1.5), breaks = seq(0, 1.5, by = 0.5)) +

  ylab(labs$zinc)+

  scale_fill_brewer(palette="Paired") + 

  s.theme +

  labs(fill = "")

zinc

ggsave("zinc.pdf", width = 12, height = 7)