Created the required plots with their R plot