Cazy_fam2 by aggregate figures and R script