Create Generate_Figures-6.R