Ryan's R code for the kegg pathway abundance plot