> degat.long <- gather(degat, taxa, count, -id, -trt)
> head(degat.long)