Более простой способ восстановить расплавленный фрейм данных обратно в исходный
Как мне воссоздать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)
})
Чего мне не хватает? Это что-то очевидное, но я не могу найти ответ. Я, возможно, даже ответил на это для кого-то здесь раньше. Argh.