Create figure_8.R