Update plot6.R