submit plot4.R