Discussion :

[Lauren13]

Bonjour
Je travaille actuellement sur une base de données comportant 60 séries (en temporel). J'ai deux bases de données: chacune se rapportant à une variable A et B.
Voici un exemple reproductible de ma base (qui en réalité contient 60 noms et 51 années)

Variable A

Code :

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

1
2
3
4
5
6
7
annee nom1 nom2 om3 
2002   39   56   31 
2003   37   31   52 
2004   51   58   51 
2005   70   59   68 
2006   41   43   37 
2007   43   31   53

Variable B:

Code :

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

1
2
3
4
5
6
7
annee nom1 nom2 nom3 
2002   56   18   24 
2003   72   52   59 
2004   32   30   33 
2005   33   34   51 
2006   47   46   19 
2007   19   32   25

J'aimerais faire une boucle qui créerait la matrice suivante pour chaque nom :

pour nom1

Code :

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

1
2
3
4
5
6
7
annee var1 var2 
2002   39   56 
2003   37   72 
2004   51   32 
2005   70   33 
2006   41   47 
2007   43   19

J'ai tout d'abord fait ceci (car je ne m’intéresse qu'aux individus représentés dans les deux bases de données)

Code :

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

1
2
3
noms=as.matrix(intersect(colnames(df.var_A),colnames(df.var_B))) 
DF.VAR_A=subset(df.var_A,select=noms) 
DF.VAR_B=subset(df.var_B,select=noms)

J'aimerais ensuite récuperer la série correspondante à chaque nom, à la fois pour la variable A et la variable B:

Je récupère les années par:

Code :

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

Année=DF.VAR_A[,"annee"]

J'obtiens bien :

Code :

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

1
2
 DF.VAR_A[,"nom1"] 
[1] 39 37 51 70 41 43

J'aimerais maintenant créer un data frame pour chaque nom, comprenant l'année, les valeurs prises par la variable A et par la variable B.

Je supprime "Année" du vecteur nom

Code :

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

NAMES=noms[-c(1)]

Puis j'ai essayé

Code :

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

1
2
3
4
DATA=NULL 
for (i in 1:length(NAMES)){ 
DATA[i]=cbind(Année,DF.VAR_A[,i],DF.VAR_B[,i]) 
}

Mais le message d'erreur suivant apparait:

Messages d'avis :
1: In DATA[i] = cbind(Année, DF.VAR_A[, i], DF.VAR_B[, i]) :
le nombre d'objets à remplacer n'est pas multiple de la taille du remplacement

En fait l'idée serait de récuperer les 3 dataframes (un pour chaque nom), pour ensuite appliquer une boucle (déjà programmée) à chacun.
J'aimerais donc "automatiser" l'application d'une boucle à tous les individus (jusqu'à présent je remplaçais manuellement nom1 par nom2 etc..dans ma boucle suivante).
Voila je ne sais pas si c'est très clair, je reconnais que c'est un peu du bricolage...
Merci d 'avance pour votre aide !

[A. D.]

Bonjour,

Une petite idée rapide mais il y a sûrement moyen de faire mieux/plus propre et optimisé :

Code :

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

1
2
3
4
5
6
7
8
DATA=vector("list",length(NAMES))
 
for (i in 1:length(NAMES))
{ 
          DATA[[i]]=cbind(Année,DF.VAR_A[,i],DF.VAR_B[,i]) 
}
 
names(DATA)<-NAMES

Bonne continuation


Cordialement,


A.D.

[Lauren13]

Merci beaucoup c'est exactement ce que je voulais faire.

Une dernière question si je peux me permettre :
Maintenant que j'ai obtenu mes 3 tableaux ( un pour chaque nom), comment réaliser une boucle qui se repete sur chacun d'entre eux ?
Admettons que je veuille faire la somme de VAR_A et VAR_B pour chacune des années?
Tout d'abord, j'ai légèrement modifié la boucle pour intégrer les noms de variables:

Code :

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

1
2
3
4
5
6
7
8
9
DATA=vector("list",length(NAMES))

for (i in 1:length(NAMES))
{ 
         DATA[[i]]=as.data.frame(cbind(Année,DF.VAR_A[,i],DF.VAR_B[,i]) )
}
names(DATA)<-NAMES
colnames(DATA[[i]])=c("Année","VAR_A","VAR_B")

Mais cela ne s'applique qu'au dernier bloc de la liste...

EDIT:En fait, lorsque j'intègre names() et colnames() DANS la boucle, cela fonctionne: les colonnes sont bien renommées

Ensuite,j'aurais tenté quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
somme=vector("list",length(DATA))
SOMME=vector("list",length(DATA))
 
for (i in 1:length(DATA)){
	for (j in 1:length(Année)){
somme[i]=DATA[,VAR_A]+DATA[,VAR_B]
SOMME[j]=somme[i]
		}
	}

Mais évidemment cela ne fonctionne pas...

Merci d'avance

[A. D.]

Bonjour,

Je vous conseille de regarder d'un peu plus près la structure des éléments de type "list".
Par exemple, pour accéder à la colonne "VAR_A" du premier élément de la liste "DATA", vous pouvez faire : DATA[[1]]$VAR_A.

Je vous laisse essayer par vous-mêmes

Après, si vous n'arrivez pas à implémenter vos calculs de somme, essayez de nous fournir une formule/explication car pour le moment je ne suis pas sûre de bien voir ce que vous souhaitez faire.

Bonne continuation


Cordialement,


A.D.

[Sengar]

Hello,

Merci beaucoup c'est exactement ce que je voulais faire.

Une dernière question si je peux me permettre :
Maintenant que j'ai obtenu mes 3 tableaux ( un pour chaque nom), comment réaliser une boucle qui se repete sur chacun d'entre eux ?
Admettons que je veuille faire la somme de VAR_A et VAR_B pour chacune des années?

En repartant du DATA de A.D.:

Code :

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

lapply(DATA,function(x){apply(x[,c(2,3)],1,sum)})

renvoit ce que tu veux sous forme d'une liste de trois elements (un par nom), chacun étant un vecteur qui donne la somme de varA et varB pour chaque année.