Histogram for Global Active Power

R script and .png file for plot1