Discussion :

[B65AcR]

Bonjour,

J'aimerai faire apparaitre les lignes d'un tableau dont la valeur dans les colonne "Un", "Deux" ou "Trois" est égale a "i" ou a "iW"

Voici mon tableau:

Code :

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

1
2
3
4
5
6
Un <- c(3,"3W",10,5,5)
Deux<-c(5,10,5,3,1)
Trois<-c(4,4,4,4,3)
matrice <- matrix(c(Un,Deux,Trois), nrow=5, ncol=3)
# Et des colonnes
colnames(matrice) <- c("Un","Deux", "Trois")

Comment faire?

Merci par avance

[vchouraki]

Bonjour,

Code :

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

1
2
3
4
5
?which
?grep
?`==`
?`%in%`
?`[`

HTH

Vincent

[B65AcR]

Merci, mais j'ai déjà essayé tout ça et ça suffit pas. La solution est plus complexe qu'il n'y parait au premier regard.

Je n'y arrive vraiment pas, il y a toujours quelque chose qui rate.

[hoccha]

Hello,

Juste pour être bien certain, dans l'exemple que vous donnez:

Code :

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

1
2
3
4
5
6
7
> matrice
     Un   Deux Trois
[1,] "3"  "5"  "4"  
[2,] "3W" "10" "4"  
[3,] "10" "5"  "4"  
[4,] "5"  "3"  "4"  
[5,] "5"  "1"  "3"

Si i=3 alors la fonction doit donner 1 2 4 5 comme solution... c'est correct ?

Si oui, voici une proposition de solution :

Code :

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

1
2
i <- 3
which(apply(matrix(as.character(matrice) %in% c(i,paste(i,"W",sep="")) ,ncol=ncol(matrice)),1,sum)>0)

[B65AcR]

Merci! dans l'exemple votre code marche merveilleusement bien.
J'ai remplacé "matrice" par "matrice[,1:3]" pour choisir les colonnes où chercher (dans le cas d'un tableau plus grand).

Malheureusement, après avoir adapté le code à un fichier csv, R me répond :

[1] Chiffre Un Deux Trois
<0 lignes> (ou 'row.names' de longueur nulle)

voici mon code complet:

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
24
25
26
27
28
29
 
num<-c(1:5)
Un <- c(3,"3W",10,5,5)
Deux<-c(5,10,5,3,1)
Trois<-c(4,4,4,4,3)
matrice <- matrix(c(num,Un,Deux,Trois), nrow=5, ncol=4)
 
# Nom des colonnes
colnames(matrice) <- c("Chiffre","Un","Deux", "Trois")
 
matrice
 
#i ou iW dans les colonnes un deux ou trois
matrice[which(apply(matrix(as.character(matrice[,1:3]) %in% c(i,paste(i,"W",sep="")) ,ncol=ncol(matrice[,1:3])),1,sum)>0),]
 
#enregistre
write.table (matrice, file = "TEST.csv", sep=",",row.names=FALSE, na="")
 
#efface mémoire
rm(list=ls())
 
#Lecture du fichier ou trouver les informations
echantillon<-read.csv("TEST.csv")
 
echantillon
 
i<-4
 
echantillon[which(apply(matrix(as.character(echantillon[,2:4]) %in% c(i,paste(i,"W",sep="")) ,ncol=ncol(echantillon[,2:4])),1,sum)>0),]

Je retombe toujours sur ce problème. Pourquoi ?

[B65AcR]

J'ai trouvé!
Après ouverture du fichier, je dois le transformer en matrice.

Mais je ne sais absolument pas pourquoi. Quelqu'un aurait le courage de m'expliquer?

Merci par avance.