Retirer des lignes d'un tableau de variables en fonction d'une valeur

[Allan BENGUE]

Bonjour à tous, j'aimerai savoir comment retirer plusieurs lignes d'un tableau en donnant une valeur précise et je n'ai pas trouvé d'infos sur les différents sujets existants.
Je m'explique : j'ai à ma disposition un tableau de variables qui comporte plusieurs observations par individus. J'aimerai retirer tous les individus ayant moins de 6 observations de ce même tableau.
La fonction suivante me donne le numéro des individus que je dois retirer de mon tableau :

nb.obs<-table(fourmis.one$ant_code)
nb.obs[nb.obs<=5] # 4 5 10 11 12 21 22 23 24 27

Je n'ai pas trouvé d'autres méthodes que de les enlever une par une de cette façon :

fourmis.one<-fourmis.one[fourmis.one$"ant_code" !="4",]
fourmis.one<-fourmis.one[fourmis.one$"ant_code" !="5",]
fourmis.one<-fourmis.one[fourmis.one$"ant_code" !="10",]
fourmis.one<-fourmis.one[fourmis.one$"ant_code" !="11",]
...

Auriez vous une méthode plus efficace à me proposer ? Merci d'avance pour votre aide :)

[Mickael Canouil]

Bonjour,

quelque-chose comme ça:

Code : Tout sélectionner

nb.obs <- table(fourmis.one[["ant_code"]])
fourmis.one[!fourmis.one[["ant_code"]] %in% names(nb.obs)[nb.obs<=5], ] 

En seule ligne:

Code : Tout sélectionner

fourmis.one[!fourmis.one[["ant_code"]] %in% names(which(table(fourmis.one[["ant_code"]]) <= 5)), ] 

Edit avec une version plus "positive"

Code : Tout sélectionner

fourmis.one[fourmis.one[["ant_code"]] %in% names(which(table(fourmis.one[["ant_code"]]) > 5)), ] 

Si vous voulez une réponse plus détaillée :

• Qu'est-ce qu'un code reproductible ?
• Comment insérer des données dans un message ?
• FAQ: What's a reproducible example (`reprex`) and how do I do one?

Cordialement,

[Fred Santos]

Bonjour,

Sans code reproductible, difficile d'être sûr. En tout cas, un exemple simple ici, repartant de votre propre code, et que vous pouvez adapter :

Code : Tout sélectionner

## Créer des données fictives :
dtf = data.frame(Indiv = factor(c(rep('Titi', 4),
                                  rep('Toto', 8),
                                  rep('Tutu', 5),
                                  rep('Tata', 13))), 
                 Value = rnorm(30))

## En repartant de votre code :
nb.obs <- table(dtf$Indiv)
keep <- nb.obs[nb.obs >= 6]
## Affichage du résultat "filtré" :
subset(dtf, Indiv %in% names(keep)) 

[Serge Rapenne]

bonjour,

ou voir la commande "filter" du package dplyr

mes 2 centimes

Serge

[Pierre-Yves Berrard]

bonjour,

ou voir la commande "filter" du package dplyr

mes 2 centimes

Serge

Code : Tout sélectionner

fourmis.one %>% group_by(ant_code) %>% filter(n() > 5) %>% ungroup()

[Mickael Canouil]

Ok, j'ajoute data.table

Code : Tout sélectionner

library("data.table")
setDT(fourmis.one)[j = .SD[.N > 5], by = "ant_code"] 

[Allan BENGUE]

Merci beaucoup ça marche ! Grâce à votre aide j'ai pu poursuivre mon projet (qui avance tout doucement ahah).