Update and rename Air-pollutant.R to plot1.R