Plot6.R