Discussion :

[mathieu_r]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[mathieu_r]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")]