पिघला हुआ डेटा फ्रेम को मूल

Question

पर पुनर्स्थापित करने का सरल तरीका मैं data.frame को फिर से कैसे बना सकता हूं जिसे मैंने reshape2 से पिघलाया?

प्रतिलिपि प्रस्तुत करने योग्य उदाहरण

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 

क्या मैं dcast

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

अस्थायी समाधान के साथ की कोशिश की है

# 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) 
    }) 

मुझे क्या याद आ रही है? यह कुछ स्पष्ट है लेकिन मैं जवाब नहीं समझ सकता। मैंने पहले यहां किसी और के लिए इसका उत्तर भी दिया होगा। अरे।

Answer 1

आप इंगित करने के लिए जो मूल पंक्ति एक आइटम के अंतर्गत आता है मार्कर के कुछ फार्म जोड़ने है, तो यह आसान है:

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) 

---

कठिनाई आप सामना कर रहे हैं करने के लिए कोई रास्ता नहीं है कि वहाँ है पहचानें कि कौन सी चीजें एक साथ जाती हैं। पिघला हुआ सेट 1 पंक्ति में 1: 5 पंक्तियां हैं? या यह 2: 6 है और 1 गुम हो गया है? पिघला हुआ डेटा वास्तव में पिघला हुआ है :)