adding plot4.R