Create figure_7.R