data.frame en paramètre dans une boucle

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:

---

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 ?

avec names(i)

Citation:

---

Envoyé par xavier-Pierre

avec names(i)

---

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

Code:

---

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 !

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:

---

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

---

Citation:

---

Envoyé par 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:

---

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:

---

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.