Réorganiser le cadre de données dans une table, l'inverse de "fondre"

Question

J'ai un énorme dataframe comme ceci:

 SN = c(1:100, 1:100, 1:100, 1:100)  
class = c(rep("A1", 100), rep("B2", 100), rep("C3", 100), rep("D4", 100)) # total 6000 levels 
myvar = rnorm(400)
mydf = data.frame(SN, class, myvar) 
 

Je souhaite "dissoudre" une table avec chaque niveau sous forme de colonne unique et myvar renseigné:

 SN          A1            B2          C3         D4       .............and so on for all 6000 
 

Comment puis-je atteindre cet objectif, je sais que c'est une question simple, mais je ne pouvais pas comprendre.

Answer 1

> dcast(mydf, SN ~ class)

  SN         A1         B2          C3          D4
1  1  0.1461258  0.8325014  0.33562088 -0.07294576
2  2  0.5964182  0.4593710 -0.23652803 -1.52539568
3  3  2.0247742 -1.1235963  1.79875447 -1.87462227
4  4  0.8184004  1.3486721  0.76076486 -1.18311991
5  5 -0.6577212  0.3666741 -0.06057506  1.38825487
6  6  0.1590443  0.2043661  0.08161778  0.10421797
...

Answer 2

molten = melt( mydf , id.vars = c( "SN" , "class" ) , measure.vars = "myvar" )
casted = dcast( molten , SN~class )

Answer 3

Une autre approche avec split :

 mydfSplit <- split(mydf[,-2], mydf$class, drop=TRUE)
 

Le résultat est une liste qui peut être facilement convertie en data.frame si les composants ont les mêmes dimensions (ce qui est vrai dans cet exemple):

 mydf2 <- do.call(cbind, mydfSplit)
 

Le problème avec cette solution est que les noms du résultat final nécessitent un nettoyage. Cependant, pour des données plus générales, cela peut être utile si SN est différent pour chaque classe.

Answer 4

En base R, vous pouvez le faire comme ça ...

 # get it sorted so that all you need to do is make a matrix out of it
mydf <- mydf[order(mydf$class, mydf$SN),]
# save the unique values of SN
SNu <- unique(mydf$SN)
# combine a matrix with SN
mydfw <- data.frame(SNu, matrix(mydf$myvar, nrow = length(SNu)))
# name your columns    
colnames(mydfw) <- c('SN', levels(mydf$class))
 

Ou, pour une expression plus concise en utilisant l'agrégat

 aggregate(myvar~SN, mydf, 'c')
# column names don't come out great
colnames(mydfw) <- c('SN', levels(mydf$class))