Some scripts to create plots in R