在R中创建“透视表”，为每行填充因子值

我希望采用如下日期输入：

library(plyr)
names(ChickWeight) <- tolower(names(ChickWeight))
ChickWeight$diet.name <- as.factor(revalue(ChickWeight$diet, c("1" = "Grain", "2" = "Grubs", "3" = "Scraps", "4" = "Free Range")))

chick   diet.name
    1       Grain
    2       Grain
    .           .
    .           .
    .           .
   21       Grubs
   22       Grubs
    .           .
    .           .
    .           .
   31      Scraps
   32      Scraps
    .           .
    .           .
    .           .
   49  Free Range
   50  Free Range

从这些数据中，提取另一组数据chick.feed，如下所示：

library(plyr)
names(ChickWeight) <- tolower(names(ChickWeight))
ChickWeight$diet.name <- as.factor(revalue(ChickWeight$diet, c("1" = "Grain", "2" = "Grubs", "3" = "Scraps", "4" = "Free Range")))

chick   diet.name
    1       Grain
    2       Grain
    .           .
    .           .
    .           .
   21       Grubs
   22       Grubs
    .           .
    .           .
    .           .
   31      Scraps
   32      Scraps
    .           .
    .           .
    .           .
   49  Free Range
   50  Free Range

也就是说，我想创建一个pivot表chick.feed，其中这里每行的计算值，每个chick是ChickWeight中该chick的所有不同行的字母值因子

---

我的问题似乎与类似，但不完全相同。

无需修改。只需抓取所需的列并保留唯一的行：

unique(ChickWeight[ , c("chick", "diet.name")])