如何在R中通过其他变量将一列分成多个列

Question

我有一个数据集。

data
    Choice    Length Gender
 1       I subadults      M
 2       F subadults      M
 3       F subadults      M
 4       F subadults      M
 5       I subadults      M
 6       F subadults      M
 7       I subadults      M
 8       F subadults      M
 9       I subadults      M
 10      I subadults      M
 11      I subadults      M
 12      O subadults      M
 13      O subadults      M
 14      I subadults      M
 15      F subadults      M
 16      F subadults      M
 17      I subadults      M
 18      O subadults      M
 19      F subadults      M
 20      O subadults      M
 21      F subadults      M
 22      F    adults      M
 23      I    adults      M
 24      F    adults      M
 25      I    adults      M
 26      F    adults      M
 27      F    adults      M
 28      F    adults      M
 29      F    adults      M
 30      F    adults      M
 31      O    adults      M
 32      O    adults      M
 33      F    adults      F
 34      F    adults      F
 35      F    adults      F
 36      F    adults      F
 37      O    adults      F
 38      F    adults      F
 39      F    adults      F
 40      I subadults      F
 41      I subadults      F
 42      I subadults      F
 43      O subadults      F
 44      I subadults      F
 45      I subadults      F
 46      I subadults      F
 47      F subadults      F
 48      I subadults      F
 49      O subadults      F
 50      I subadults      F
 51      I    adults      F
 52      F    adults      F
 53      F    adults      F
 54      F    adults      F
 55      F    adults      F

现在我想把选择列分成三个部分，因此数据集将会像这样：

  F  I  O  Length    Gender
  1  0 20  subadults   F
  0  10 0  adults      F
  12 0  11  subadults  M
  0  10 0  adults      M

F、I、O是长度和性别的总和。

我找不到用R命令来实现这个功能。有人能帮我吗？ 非常感谢！Yan

- Yanyan

---

使用reshape2包 http://cran.r-project.org/web/packages/reshape2/index.html - canyon289

你能详细解释一下“长度和性别的总和”是什么意思吗？ - user3710546

你能否添加一个数据的dput，该数据是你上面发布的吗？ - vagabond

Answer 1

尝试：

require(reshape2)
data <- data.frame(choice = c('I', 'F', 'I', 'O', 'F', 'O'), 
                   length = c('subadults', 'subadults', 'subadults', 'adults', 'adults', 'adults'),
                   gender = c('M', 'M', 'F', 'F', 'M', 'F'))

melt_data = melt(data, value.name = "value", id.vars = c("length", "gender"))

dcast(melt_data, gender+length ~ value)

  gender    length F I O
1      F    adults 0 0 2
2      F subadults 0 1 0
3      M    adults 1 0 0
4      M subadults 1 1 0

- vagabond

---

答案正是我想要的！非常感谢！ - Yanyan

为什么你要先进行“融化”操作？这似乎是不必要的。 - A5C1D2H2I1M1N2O1R2T1

Answer 2

在基本的R语言中，有两种方法可以考虑，分别是ftable和aggregate。

下面是示例使用ftable的代码片段：

> ftable(mydf, col.vars = "Choice")
                 Choice  F  I  O
Length    Gender                
adults    F             10  1  1
          M              7  2  2
subadults F              1  8  2
          M              9  8  4

这里是aggregate：

> aggregate(Choice ~ Length + Gender, mydf, table)
     Length Gender Choice.F Choice.I Choice.O
1    adults      F       10        1        1
2 subadults      F        1        8        2
3    adults      M        7        2        2
4 subadults      M        9        8        4

使用"data.table"，你也可以尝试以下方法：

as.data.table(mydf)[, as.list(table(Choice)), by = list(Length, Gender)]
#       Length Gender  F I O
# 1: subadults      M  9 8 4
# 2:    adults      M  7 2 2
# 3:    adults      F 10 1 1
# 4: subadults      F  1 8 2

然而，使用dcast.data.table是更常见的方法：

dcast.data.table(as.data.table(mydf), Length + Gender ~ Choice, value.var = "Choice")

---

使用 "dplyr" 和 "tidyr"，您可以尝试：

library(dplyr)
library(tidyr)

mydf %>%
  group_by(Length, Gender, Choice) %>%
  summarise(Count = n()) %>%
  spread(Choice, Count)
# Source: local data frame [4 x 5]
# 
#      Length Gender  F I O
# 1    adults      F 10 1 1
# 2    adults      M  7 2 2
# 3 subadults      F  1 8 2
# 4 subadults      M  9 8 4

- A5C1D2H2I1M1N2O1R2T1

Answer 3

您可以尝试：

 reshape(as.data.frame(table(df)),
         idvar=c("Length","Gender"),
         timevar="Choice",direction="wide")
 #      Length Gender Freq.F Freq.I Freq.O
 #1     adults      F     10      1      1
 #4  subadults      F      1      8      2
 #7     adults      M      7      2      2
 #10 subadults      M      9      8      4

函数table会将每个Choice、Gender和Length出现的次数作为一个多维数组返回。然后你可以将其强制转换为一个有四列的data.frame（上述三列加上一列名为Freq，表示每种情况出现的次数），并按照你想要的方式重塑结果。

编辑

我现在意识到我没有得到你的值。这里我统计了每种情况出现的次数。你的值正确吗？如果是，那么你是如何得出这些值的？

- nicola