Create figure_9.R