Plot 2.R