Update exploratory_analysis.R

Adding more plots