added plot6.R