ggplot(HMP,aes(x=country,y=log10(rel_crAss)))+
geom_boxplot(linetype="dashed",color="blue")+
stat_boxplot(aes(ymin=..lower..,ymax=..upper..,
fill=country),
color="red")+
stat_boxplot(geom = "errorbar",aes(ymin=..ymax..),
width=0.2,color="red")+
stat_boxplot(geom = "errorbar",aes(ymax=..ymin..),
width=0.2,color="green")