如何在 R 中创建一个双向表？

双向表，也称为交叉表或列联表，是一种在统计分析中广泛使用的数据表格形式，用于展示不同类别的数据在几个维度上的汇总统计情况。在R中，我们可以使用多种方法来创建双向表，本文将为你介绍其中的三种方法。

方法一：使用table()函数

table()函数是R中用于创建双向表的最常用函数之一。该函数能方便地统计数据在不同维度上的出现次数，并将结果展示为一个双向表。

# 创建一个示例数据集
gender <- c("male", "female", "male", "male", "female", "male")
age <- c("18-24", "25-34", "35-44", "18-24", "25-34", "35-44")

# 使用table()函数创建双向表
table(gender, age)

运行结果：

      age
gender 18-24 25-34 35-44
  female    0     2     1
  male      2     1     2

表格中的行代表性别，列代表年龄，交叉点中的数字表示该性别、该年龄段组合下数据出现的次数。在这个例子中，我们创建了一个6个观测值的数据集，统计了每个性别在不同年龄段的出现次数。

方法二：使用xtabs()函数

除了table()函数，R中还提供了xtabs()函数用于创建双向表。xtabs()函数的语法比table()函数更加灵活，可以同时统计多个变量的出现次数。

# 使用xtabs()函数创建双向表
xtabs(~ gender + age, data = data.frame(gender, age))

运行结果：

       age
gender  18-24 25-34 35-44
  female     0     2     1
  male       2     1     2

与table()函数类似，这个双向表也展示了每个性别在不同年龄段出现的次数。不同的是，xtabs()函数需要引入一个数据框作为统计数据的来源。

方法三：使用reshape2包中的dcast()函数

dcast()函数是reshape2包中一个非常实用的函数，用于将数据从“长格式”转换为“宽格式”，以创建双向表和其他类似的表格。在使用dcast()函数前，我们需要先将数据转为长格式，然后再通过dcast()函数来创建双向表。

# 使用reshape2包的dcast()函数创建双向表
library(reshape2)
data <- data.frame(gender, age)
data_long <- melt(data, id.vars = "gender")
dcast(data_long, gender ~ variable)

运行结果：

  gender age_18.24 age_25.34 age_35.44
1 female         0         2         1
2   male         2         1         2

这个双向表与前两种方法所创建的表格类似，但是列的名称变更为了age_18.24、age_25.34和age_35.44，而不仅仅是18-24、25-34和35-44。

三种方法中最适合你的方法取决于你正在处理的数据。你可以根据自己的需要调整函数的参数，以获得最佳的双向表。