Modo più semplice per ricostituire un frame di dati fuso indietro all'originale

Question

Come ricreare uno data.frame che ho fuso con reshape2?

esempio riproducibile

library(reshape2) 
library(plyr) 
data(iris) 
df <- melt(iris, id.vars="Species") 
head(df) 
    Species  variable value 
1 setosa Sepal.Length 5.1 
2 setosa Sepal.Length 4.9 
3 setosa Sepal.Length 4.7 
4 setosa Sepal.Length 4.6 
5 setosa Sepal.Length 5.0 
6 setosa Sepal.Length 5.4 
# Great, I'd like to get the original iris back 

Quello che ho provato con dcast

dcast(df, Species~variable, value.var = "value") 
    # should work but doesn't 

soluzione temporanea

# This works but clearly it shouldn't be this hard. 
ddply(df, .(Species), function(x) { 
    Species <- unique(x$Species) 
    x$id <- 1:dim(x)[1] 
    x$Species <- NULL 
    dat <- unstack(x, value~variable) 
    dat$Species <- Species 
    return(dat) 
    }) 

Cosa mi manca? È qualcosa di ovvio ma non riesco a capire la risposta. Potrei aver persino risposto per qualcun altro qui prima. Argh.

Answer 1

Se aggiunge una qualche forma di marcatore per indicare quale riga originale di un elemento appartiene, allora è facile:

require(reshape2) 
iris$rn <- seq_len(nrow(iris)) 
molten <- melt(iris, id.vars = c("Species", "rn")) 

# just a one-liner 
dcast(molten, rn + Species ~ variable) 

---

La difficoltà che si è verificato è che non v'è alcun modo per identificare quali oggetti vanno insieme. Le righe 1: 5 nel fuso fissano una riga? o è il 2: 6 e il 1 è fuori posto? I dati fusi sono infatti fusi :)