Plot 1 and Plot 2 with R codes