tapply, trouver l'index de la valeur maximale

Bonjour,

J'ai data frame avec la population par chef-lieux avec le département d'origine.

J'aimerais connaître l'index du chef lieu avec la population maximale par département.

Pour cela, j'ai utilisé la fonction tapply:

Code:

---

test <- tapply(rgc$POPU, rgc$DEP, which.max)

---

Seulement, les index retournés ne sont pas les bons car si je récupère le département de chaque index, ces derniers se répètent alors qu'ils devraient être uniques...

Code:

---

1 2 3 4 5

> rgc$DEP[test] [1] 01 02 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 02 01 01 01 01 01 02 01 01 01 01 01 01 01 [34] 01 01 01 01 01 01 02 01 01 01 01 01 01 01 01 01 01 01 02 01 01 02 01 01 01 01 01 01 01 02 01 01 01 [67] 01 02 01 01 02 01 01 01 01 01 01 02 01 01 02 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 96 Levels: 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 21 22 23 24 25 26 27 28 29 ... 95

---

Une idée?

Merci d'avance!

J'ai résolu mon problème de cette façon-là :

Code:

---

1 2 3

f$row <- 1:nrow(f) comMax <- sapply(split(f, f$DEP), function(x) x$row[which.max(x$POPU)]) rgc <- f[comMax, c("DEP", "XLAMB93", "YLAMB93", "POPU")]

---