sending plot4.R