four plots added both in png and R code