ggplot(selected_preds, aes(x=CLASS, y=100*(10^lsmean), fill=CLASS, group=
CLASS, ymin=100*(10^lower.CL), ymax=100*(10^upper.CL)))
+geom_bar(stat="identity", width=0.5, size=5)+geom_errorbar(aes(ymin=100*(10^lower.CL), ymax=100*(10^upper.CL)), width=0, size=0.5) +theme_grey(base_size=14) + theme(legend.position="none") +labs(y = "Relative amount of compounds (%)") + theme(axis.text.x = element_text(angle = 45, hjust = 1))+theme(axis.text.x = element_text(size=5))