Modify plot4.R and its output