This is an exercise in R for the Masters Visualization topic week2