Transposition de données d'un data frame à un autre

2 pièce(s) jointe(s)

Bonjour à tous,
Voici mon problème : j'ai un premier jeu de données avec une ligne par patient et différentes infos sur celui ci en colonne, j'ai un second jeu avec une ligne par consultation de ces patients, donc plusieurs lignes par patient avec différentes consultations à différentes dates. Je souhaiterais mettre les dates de consultation dans différentes colonnes dans le premier jeu.
Merci pour votre aide!

Transposition

Bonjour,

Je vous conseille les packages reshape et reshape2 qui sont très utiles pour transposer les données :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
> df <- read.table("D:/temp/fichier 1.txt", header=TRUE)
> #On numérote les observations par groupe
> df <- df[order(df$Patient),]
> df$obsnum <- sequence(rle(as.vector(df$Patient))$lengths)
> df
  Patient Type       Date obsnum
1       1    1 01/01/2000      1
2       1    1 01/10/2010      2
3       1    7 04/10/2010      3
4       2    7 04/10/2011      1
5       2    7 05/01/2015      2
6       2    7 09/02/2015      3
7       2    9 01/01/2016      4

Code:

1
2
3
4
5
6
7
8
9
> library(reshape)
> reshape(data=df,
+         idvar="Patient",
+         v.names=c("Type","Date"),
+         timevar="obsnum",
+         direction="wide")
  Patient Type.1     Date.1 Type.2     Date.2 Type.3     Date.3 Type.4     Date.4
1       1      1 01/01/2000      1 01/10/2010      7 04/10/2010     NA       <NA>
4       2      7 04/10/2011      7 05/01/2015      7 09/02/2015      9 01/01/2016

Cordialement,

Merci beaucoup!