Update Plot 4.R