Update Plot3.r