Before rmd
ggplot example by r cookbook