Extraire la Nème ligne

Bonjour,

Voici un data frame avec 2 colonnes : le nombre d'habitants par ville et le pays.

Code:

---

1 2 3 4 5 6 7 8

Pays Ville FR 100.000 FR 75.000 FR 33.000 ES 49.000 ES 42.000 ES 25.000 ES 18.000

---

Comment extraire la n^ème ligne pour chaque pays ?
Ex : si je sélectionne la 3ème ligne, j'obtiens :

Code:

---

1 2 3

Pays Ville FR 33.000 ES 25.000

---

Espérant avoir été assez explicite.

Une façon de faire parmis d'autres :

Code:

---

Reduce(rbind,by(DF,DF['Pays'],function(df){cbind(df,n=1:nrow(df))}))

---

Après il suffit de filtrer avec la nouvelle colonne.

Bonjour,

Une autre manière de procéder en ayant recours au package "dplyr" (ici sélection de la 2ème ligne pour chaque pays) :

Code:

---

1 2 3

require(dplyr)   group_by(DF, Pays) %>% mutate(n = 1:n()) %>% filter(n == 2) %>% select(Pays, Ville)

---

Cordialement,


A.D.

Allez, encore une autre solution, avec le package data.table :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

library(data.table) test <- data.frame(Pays = c("FR", "FR", "FR", "ES", "ES", "ES", "ES"), Ville = c(100,75,33,49,42,25,18))   test Pays Ville 1 FR 100 2 FR 75 3 FR 33 4 ES 49 5 ES 42 6 ES 25 7 ES 18   dt <- data.table(test)   dt Pays Ville 1 FR 100 2 FR 75 3 FR 33 4 ES 49 5 ES 42 6 ES 25 7 ES 18   n <- 3 #ici, on fixe la valeur de n   dt[, .SD[n], by = Pays]   Pays Ville 1: FR 33 2: ES 25

---