Added script and image of plot 3
call to png when ggplot2 is loaded