Create figure_S4.R