R Plotting initial commit