upload plot4.R