plot6.R