plot4.R and its plot