df <- data.frame(animal = c("dog", "dog", "cat", "dog", "cat", "cat"),
hunger = c(0, 1, 1, 0, 1,1))
我有一个类似于上面的数据框，它有两列，一列包含类别，另一列包含二进制数据.
我希望reshape 数据帧，将类别("动物")列拆分为两列，将"动物"列的值作为列名，将另一列(饥饿)的值作为单元格值，即
请注意，情况并非如此.
df <- data.frame(dog = c(0, 1, 0),
cat = c(1, 1, 1))
如果不同类别之间的长度不一致，我们可以使用
list2DF(
lapply(
. <- unstack(rev(df)),
`length<-`,
max(lengths(.))
)
)
list2DF(
lapply(
. <- unstack(df, hunger ~ animal),
`length<-`,
max(lengths(.))
)
)
或
list2DF(
lapply(
. <- unstack(rev(df)),
`length<-`,
max(lengths(.))
)
)
我们将获得
cat dog
1 1 0
2 1 1
3 1 0
4 0 NA
Dummy data个
df <- data.frame(
animal = c("dog", "dog", "cat", "dog", "cat", "cat", "cat"),
hunger = c(0, 1, 1, 0, 1, 1, 0)
)
我们可以用unstack，例如，
> unstack(rev(df))
cat dog
1 1 0
2 1 1
3 1 0
或
> unstack(df, hunger ~ animal)
cat dog
1 1 0
2 1 1
3 1 0