Plot3

R code + plot