Create figure_2.R