Update Plot 3.R