R code and plot of project 1 of exploratory data analysis