Low-performing students at age 15, by country

Source: OECD PISA 2012

This slideshow requires JavaScript.

After getting your data into long format:

     Country         Subject Total   OECD
1    OECD average    Math     23.0      1
2  Shanghai-China    Math      3.8      0
3       Singapore    Math      8.3      0
4 Hong Kong-China    Math      8.5      0
5           Korea    Math      9.1      0
6         Estonia    Math     10.5      0

library(ggplot2)
ggplot(subset(dt,Subject=="Math"),aes(reorder(Country,Total),Total))+
geom_bar(stat="identity", aes(fill=as.factor(OECD))) +
ggtitle("% of low-performing students at age 15, by country: Mathematics")+
scale_fill_manual(values=c("red","#990000"))+ #33CC00 3399FF
geom_text(aes(label =paste(round(Total,0),"%",sep=""),ymax=0),
position=position_dodge(width=0.9), vjust=0.35, hjust=-0.5)+
xlab("")+
ylab(" ")+
theme(legend.position="none")+
coord_flip()