Adding plot 1 r script