really.messy.long <- gather(really.messy, taxa, count, -id, -trt)