Update Plot 2.R