Renvoi du nom de la valeur maximum de chaque colonne

Bonjour,
Je voudrais insérer une ligne à ce tableau dans laquelle sera mis le nom de la ligne de la valeur maximum de la colonne.
ici pour la 1ère colonne : 31 est la valeur max, je voudrais donc que Pelouse aérohaline s'inscrive en bas de la colonne et ce pour chaque colonne.
L'idée étant d'ajouter ici une ligne : "Pelouse aérohalines", "Autre espèces...", "Pelouse aérohalines", "Pelouse aérohalines"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

V3 V4 V5 V6 Autres espèces, lichens et bryophytes 21 28.0 2 31.0 Espèces des végétations rudérales subnitrophiles 1 1.0 1 3.0 Lande herbeuse 20 7.0 7 0.0 Lande littorale 2 0.0 0 0.0 N/D 0 0.0 0 0.0 Pelouse écorchée 19 7.0 3 4.0 Pelouse rase (à dominance d'annuelles) 9 7.0 4 5.0 Pelouses aérohalines 31 24.5 27 34.5 Préforestières 0 0.0 0 0.0 Substrat humide subhalophile 0 0.0 0 0.0 Végétation chasmo-halophile et halophile 0 0.0 0 0.0

---

Je vous remercie.

Finalement la réponse m'est venue à l'esprit ;)
a partir de ce tableau :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

V3 V4 V5 V6 Autres espèces, lichens et bryophytes 21 28 2 31 Espèces des végétations rudérales subnitrophiles 1 1 1 3 Lande herbeuse 20 7 7 0 Lande littorale 2 0 0 0 N/D 0 0 0 0 Pelouse écorchée 19 7 3 4 Pelouse rase (à dominance d'annuelles) 9 7 4 5 Pelouses aérohalines 31 24.5 27 34.5 Préforestières 0 0 0 0 Substrat humide subhalophile 0 0 0 0 Végétation chasmo-halophile et halophile 0 0 0 0 Dominant NA NA NA NA

---

J'ai utiliser une boucle :

Code:

---

1 2 3 4 5

for(i in {1:length(data)}) { max<-which.max(data[1:11,i]) data["Dominant",i]<-dimnames(data[max,])[[1]] }

---