R Plots with plotting R code