Added plot in R