My code produces this graph:
Code:
ggplot(areas, aes(x = RETAILER, y = Difference), label=sprintf(\"%0.2f\", round(areas$Difference, digits
geom_text(label=percent(Difference,.11))