Plot3.R