重塑数据以将列值拆分为列

df <- data.frame(animal = c("dog", "dog", "cat", "dog", "cat", "cat"),
                 hunger = c(0, 1, 1, 0, 1,1))

我有一个像上面这样的数据框，有两列，一列包含类别，另一列包含二进制数据。

我希望重塑数据框，将类别（“动物”）列分成自己的两列，其中“动物”列的值作为列名称，另一列（饥饿）的值作为单元格值，即

期望的输出：

df <- data.frame(dog = c(0, 1, 0),
                 cat = c(1, 1, 1))

我怎样才能实现这个目标？

当不同类别之间长度不均匀的情况下，我们可以使用

list2DF(
  lapply(
    . <- unstack(df, hunger ~ animal),
    `length<-`,
    max(lengths(.))
  )
)

or

list2DF(
  lapply(
    . <- unstack(rev(df)),
    `length<-`,
    max(lengths(.))
  )
)

我们将得到

  cat dog
1   1   0
2   1   1
3   1   0
4   0  NA

虚拟数据

df <- data.frame(
  animal = c("dog", "dog", "cat", "dog", "cat", "cat", "cat"),
  hunger = c(0, 1, 1, 0, 1, 1, 0)
)

我们还可以使用unstack, e.g.,

> unstack(rev(df))
  cat dog
1   1   0
2   1   1
3   1   0

or

> unstack(df, hunger ~ animal)
  cat dog
1   1   0
2   1   1
3   1   0