Create Rplot1.R