Create plot6_advance.R

advance thinking about plot6