Create survey_barcharts.r