R plot 1,2,3,4 and the associated plots are added