Discussion :

[enicnath]

Bonjour,
Je souhaite faire une recherche dans plusieurs data.frame qui contiennent tous une variable Nom. Il me semble qu'une boucle for pourrait être appropriée, mais ça plante.
Exemple :

Code :

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

1
2
3
for (i in c('T1','T2','T3','T4','T5')) {
   if ( !('XXX' %in% i[['Nom']]) ) cat("la table",i,"ne contient pas XXX\n")
}

Le message d'erreur est Error in i[["Nom"]] : indice hors limites

Est-ce que quelqu'un saurait faire ça ?

[xavier-Pierre]

avec names(i)

[enicnath]

avec names(i)

Bonjour,
Je ne suis pas sur de bien savoir l'utiliser. Exemple :

Code :

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

1
2
3
4
T1 <- data.frame(A=c(1,2,3,4,5,6,7),B=c(3,6,0,3,5,2,4))
T2 <- data.frame(A=c(1,5,7,4,9,6,7),B=c(3,6,0,3,5,2,4))
T3 <- data.frame(A=c(1,0,3,4,5,6,8),B=c(3,6,0,3,5,2,4))
for (i in c('T1','T2','T3')) if ( 7 %in% names(i)[['A']] ) cat("la table",i,"contient 7\n")

Ici, le programme n'imprime pas T1 et T2, alors que T1$A et T2$A contiennent tous deux 7 !

[olivier.decourt]

Bonjour.
J'ai décomposé un peu le problème : la fonction which permet de savoir si une valeur est présente dans une colonne, et où. Combinée à la fonction any, on sait si la valeur est présente au moins une fois. Si on applique ensuite la combinaison any+which à chaque colonne d'une table, via un sapply par exemple, on peut savoir si la valeur est présente au moins une fois sur l'ensemble des colonnes d'une table (avec un any là encore). Enfin la boucle permet de passer des tables en revue (liste de noms de tables qu'on pourrait récupérer avec ls() par exemple).

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
T1 <- data.frame(A=c(1,2,3,4,5,6,7),B=c(3,6,0,3,5,2,4))
T2 <- data.frame(A=c(1,5,7,4,9,6,7),B=c(3,6,0,3,5,2,4))
T3 <- data.frame(A=c(1,0,3,4,5,6,8),B=c(3,6,0,3,5,2,4))
 
colonne_contient <- function(col, valeur){
  any(which(col == valeur))
}
df_contient <- function(df, valeur){
  any(sapply(get(df),
             colonne_contient,
             valeur))
}
 
 
for (i in c('T1','T2','T3')) {
  if (df_contient(i,7)) cat("la table",i,"contient 7\n")
}

[enicnath]

Bonjour.
J'ai décomposé un peu le problème : la fonction which permet de savoir si une valeur est présente dans une colonne, et où. Combinée à la fonction any, on sait si la valeur est présente au moins une fois. Si on applique ensuite la combinaison any+which à chaque colonne d'une table, via un sapply par exemple, on peut savoir si la valeur est présente au moins une fois sur l'ensemble des colonnes d'une table (avec un any là encore). Enfin la boucle permet de passer des tables en revue (liste de noms de tables qu'on pourrait récupérer avec ls() par exemple).

Code :

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

1
2
3
colonne_contient <- function(col, valeur){ any(which(col == valeur)) }
df_contient <- function(df, valeur){ any(sapply(get(df), colonne_contient, valeur)) }
for (i in c('T1','T2','T3')) { if (df_contient(i,7)) cat("la table",i,"contient 7\n") }

En regardant ton code, j'ai repris en utilisant uniquement la fonction get(...) :

Code :

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

for (i in c('T1','T2','T3')) if ( 7 %in% get(i)[['A']] ) cat("la table",i,"contient 7\n")

Ça semble fonctionner ... du moins pour mon souci à l'origine de ma question.