Plot 1

Plot and R code