Modify plot6.R