Final R Code; Plots with transparent background