> degat <- data.frame(
      Species = c("Chêne", "Orme", "Frêne"),
      DHP = c(12, 20, 13),
      Haut = c(56, 85, 55))
> degat
  Species DHP Haut
1   Chêne  12   56
2    Orme  20   85
3   Frêne  13   55