Update Plot 1.R