Exploratory Data Analysis R code