messy.long <- gather(messy, Measurement, cm, -Species)

> head(messy.long)
  Species Measurement cm
1     Oak         DBH 12
2     Elm         DBH 20
3     Ash         DBH 13
4     Oak      Height 56
5     Elm      Height 85
6     Ash      Height 55