added new plots with outliers removed and modified R code