Discussion :

[gabea80]

Bonjour,
je cherche une fonction ou une commande dans R qui pourrait m'aider à combiner des identifiants (ID) qui sont identiques et qui transférerai l'information (NO et DATE) des lignes avec le même identifiant en commun sur une seule ligne.

voici la version simplifié de mon tableau:

arbres_drf

ID	NO	DATE
051	7	2009
051	8	2014
054	7	2009
054	8	2014
055	7	2009
055	8	2014

je voudrais que ça donne comme résultat:

ID	NO	DATE	NO	DATE
051	7	2009	8	2014
054	7	2009	8	2014
055	7	2009	8	2014

merci d'avance
Gabriel Beaudoin

[mgdondon]

Bonjour,

Voici une proposition avec la fonction reshape() :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
> df <- data.frame(ID=c(051,051,054,054,055,055),
+                  NO=c(7,8,7,8,7,8),
+                  DATE=c(2009,2014,2009,2014,2009,2014))
> df
  ID NO DATE
1 51  7 2009
2 51  8 2014
3 54  7 2009
4 54  8 2014
5 55  7 2009
6 55  8 2014

Code :

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

1
2
3
4
5
6
7
8
9
10
> df2 <- reshape(data=df,
+                idvar="ID",
+                v.names=c("NO","DATE"),
+                timevar="NO",
+                direction="wide")
> df2
  ID NO.7 DATE.7 NO.8 DATE.8
1 51    7   2009    8   2014
3 54    7   2009    8   2014
5 55    7   2009    8   2014

Cordialement,

[gabea80]

oui parfait merci cela fonctionne

je voulais savoir aussi s'il est possible de définir les colonnes comme DATE7 et DATE8 (par exemple), qui sont défini selon la variable timevar, autrement. C'est-à-dire que je voudrai que quand c'est la première mesure se soit 1 et quand c'est la deuxième que se soit 2 (ex: DATE1 et DATE2). C'est que dans mon jeu de données, j'ai des mesures autres que 7 et 8 .

[mgdondon]

Bonjour,

Il faudrait générer un numéro que vous utiliseriez dans le paramètre time=. Vous pouvez aussi choisir d'utiliser la variable DATE plutôt que NO. Ainsi vos noms de variables termineront par l'année.

Cordialement,

[gabea80]

parfait
un gros merci pour l'aide

[mgdondon]

Bonjour,

Suite à une demande similaire, voici la commande pour numéroter les observations par groupe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
> df <- data.frame(ID=c(051,051,054,054,055,055),
+                  NO=c(7,8,7,8,7,8),
+                  DATE=c(2009,2014,2009,2014,2009,2014))
> #On numérote les observations par groupe
> df <- df[order(df$ID),]
> df$obsnum <- sequence(rle(as.vector(df$ID))$lengths)
> df
  ID NO DATE obsnum
1 51  7 2009      1
2 51  8 2014      2
3 54  7 2009      1
4 54  8 2014      2
5 55  7 2009      1
6 55  8 2014      2

Code :

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

1
2
3
4
5
6
7
8
9
10
> df2 <- reshape(data=df,
+                idvar="ID",
+                v.names=c("NO","DATE"),
+                timevar="obsnum",
+                direction="wide")
> df2
  ID NO.1 DATE.1 NO.2 DATE.2
1 51    7   2009    8   2014
3 54    7   2009    8   2014
5 55    7   2009    8   2014

Cordialement,