Discussion :

[Amaya]

Bonjour,

Je recherche de l'aide pour réaliser une action sous R. J'ai un tableau de ce type :

Code :

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

1
2
3
4
5
6
 
Var1        Var2   Var3	
2145,76     26     14
8243,39     30     14
2865,46     30     14
2735,98     30     16

Et par exemple, j'aimerais récupérer les valeur de Var1 sachant que Var2=30 et Var3=14 et ainsi de suite pour chacune des combinaisons de Var2 et Var3.

J'ai tenté plusieurs choses avec une boucle et la fonction if mais je ne sais pas comment lui dire de récupérer la valeur de Var1 qui correspond aux valeurs que j'assigne à Var2 et Var3...

Si vous avez une idée, je suis preneur !

Merci.

[Artturc]

Si ton tableau s'appelle M, tu peux utiliser :

Code :

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

U<-unique(M[,c('var2','var3')])

pour récupérer tous les couples (var1,var2) existant dans tes données. Ca te servira pour ta boucle : u<-dim(U)[2]; for(i in 1:u) ...

Pour récupérer les données, j'imagine qu'il faut que tu crées une liste (L<-list()) et que, pour tous les i, tu stockes dedans un vecteur issu de M$var1.

Code :

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

L[[i]]<-M$var1[M$var2==U$var2[i]&M$var3==U$var3[i]]

devrait faire l'affaire j'imagine.

Mais il y a sans doute plus élégant et plus simple.

[lilly74]

Bonjour,
je vous propose d’utiliser:

Code :

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

?which

et d'indexer les vecteurs (cf. par exemple http://cran.r-project.org/doc/contrib/Short-refcard.pdf):

Code :

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

1
2
d <- data.frame(Var1=c(2145, 8243.39, 2865.46, 2735.98), Var2=c(26,rep(30,3)), Var3=c(rep(14,3),16))
(V1 <- d[which(d$Var2==30 & d$Var3==14),1])

Bonne journée

[pitipoisson]

Bonjour,

Il y a également la fonction split qui permet de directement découper une data.frame selon un ou plusieurs facteurs :

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
> tmp <- data.frame(Var1=runif(4, 2000, 9000),
+                   Var2=sample(c(26, 30), 4, replace=TRUE),
+                   Var3=sample(c(14, 16), 4, replace=TRUE))
> tmp
      Var1 Var2 Var3
1 2707.683   26   16
2 8098.849   30   16
3 6161.392   30   14
4 7880.800   26   16
> split(tmp, list(tmp$Var2, tmp$Var3))
$`26.14`
[1] Var1 Var2 Var3
<0 lignes> (ou 'row.names' de longueur nulle)
 
$`30.14`
      Var1 Var2 Var3
3 6161.392   30   14
 
$`26.16`
      Var1 Var2 Var3
1 2707.683   26   16
4 7880.800   26   16
 
$`30.16`
      Var1 Var2 Var3
2 8098.849   30   16

L'objet retourné étant une liste, il peut facilement être traité ensuite à l'aide des fonctions de la famille des apply.

[Amaya]

Merci pour vos réponses !
J'ai réussi maintenant !