Finish plot6.R