R file plot4