Create IPA_pathway_barplot.R