fonction filter de dplyr dnas une fonction

**jlp65** · 18/11/2019, 13h30

Bonjour,

Le code suivant fonctionne sans erreur signalée, mais, si la jointure se fait bien , ce n'est pas le cas du filtre (fonction filter()).
(si je fais un copier-coller de la partie concernant le filtre à l'extérieur de la fonction, cela fonctionne correctement)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
library(dplyr)
passage.Nomenc<- function(table, ape2) {  
  table_passage<-read.csv('V:/table_de_passage.csv',colClasses = "character",sep=';') 
  ape <- enquo(ape2) 
 
  table <- left_join(table,table_passage,by= setNames("ape",ape2)) %>% 
 
    # ici, la résolution des conflits, lorsque plusieurs ndom3 pour une même APE  
 
  filter(   (!!ape  != '1101Z' | ndom3 == 'NC2002000')
          & (substr(!!ape ,1,2)  != '24' | ndom3 == 'ND2006001')
          & (substr(!!ape ,1,2)  != '29' | ndom3 == 'ND2010001')
          & (substr(!!ape ,1,2)  != '46' | ndom3 == 'NG1002000')
          & (substr(!!ape ,1,2)  != '64' | ndom3 == 'NK1001001')
          & (!!ape  != '6820B' | ndom3 == 'NL1002003')
          & (substr( !!ape ,1,2)  != '85' | ndom3 == 'NP2001001')
          & (substr(!!ape ,1,2)  != '86' | ndom3 == 'NP2002001')
          & (substr(!!ape ,1,2)  != '95' | ndom3 == 'NR1002002')
  ) 
    return(table)    
}
t2<-passage.Nomenc(table=t, ape="APE_sirene")

Si qqn comprend où est l'os et peut me dépanner ?
Merci

**olivier.decourt** · 18/11/2019, 13h47

Bonjour.
Pouvez-vous nous en dire plus sur le dysfonctionnement : le filtre ne sélectionne aucune ligne ? les sélectionne toutes ? génère des messages ?
Petit détail annexe : est-il bien raisonnable d'avoir un paramètre de la fonction qui s'appelle table et un objet créé dans la fonction avec le même nom ?
Dernier point, ce serait chouette d'avoir un exemple reproductible (sur des données bidon comme la table iris par exemple) pour que tous les participants du forum puissent faire des tests.

**xavier-Pierre** · 18/11/2019, 14h08

bonjour peut-être

Code :

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

1
2
 
t2<-passage.Nomenc(table=t, ape=APE_sirene) ## sans les guillemets

cdlt

**jlp65** · 18/11/2019, 14h37

Envoyé par olivier.decourt

Bonjour.
Pouvez-vous nous en dire plus sur le dysfonctionnement : le filtre ne sélectionne aucune ligne ? les sélectionne toutes ? génère des messages ?
Petit détail annexe : est-il bien raisonnable d'avoir un paramètre de la fonction qui s'appelle table et un objet créé dans la fonction avec le même nom ?
Dernier point, ce serait chouette d'avoir un exemple reproductible (sur des données bidon comme la table iris par exemple) pour que tous les participants du forum puissent faire des tests.

Bonjour,
le filtre ... ne filtre pas ! Tout se passe comme si la partie filter() n'était pas présente dans le code : seule la jointure se fait. Aucun message généré.
j'ai fait un test avec une table appelée table2, le résultat est le même.
Voici un "exemple reproductible" ... où, cette fois, le résultat est une table à 0 ligne (alors qu'il devrait y avoir au moins 2 lignes) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
passage.Nomenc<- function(table,variable2) {
 
  variable<-enquo(variable2)
 
  table_passage<-data.frame(Especes = c("setosa","versicolor","virginica"),abrev=c("set","vers","virg"))
  table2 <- left_join(table,table_passage,by= setNames("Especes",variable2)) %>% 
    filter(   (!!variable  == 4.9)    )
  return(table2)  
}
t2<-passage.Nomenc(table=iris,variable2="Species")
t2

Le passage de SAS à R ne va pas sans difficulté

**xavier-Pierre** · 18/11/2019, 14h52

dans ce cas il faut utiliser la fonction sym et non enquo, j'ai de plus changer le filtre filter( (!!variable == 4.9) ) en filter( (!!variable == "setosa") )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 passage.Nomenc<- function(table,variable2) {
 
   variable<-sym(variable2)
 
   table_passage<-data.frame(Especes = c("setosa","versicolor","virginica"),abrev=c("set","vers","virg"))
   table2 <- left_join(table,table_passage,by= setNames("Especes",variable2)) %>% 
     filter(   (!!variable  == "setosa")    )
   return(table2)  
 }
 t2<-passage.Nomenc(table=iris,"Species")
 t2