Plot 2

R code and png