Create good_example_plot6.R