Create boxplot_type.R