R codes and plots for Exploratory Data Analysis week 1 project