Update Plot3.R