使用一个常量变量针对所有其他变量从数据框中创建多个表

Question

我想实现某种循环，将数据帧中的所有变量与一个常量制成表格，该常量是另一个变量。

例如，假设我有一个包含 3 个变量的数据框，例如下面的虚拟数据，我想生成给定的表格。

df <- data.frame(V1 = factor(c("L", "L", "XL", "M", "S", "XXL")),
                 V2 = factor(c("Tall", "Medium", "Tall", "Small", "Small", "Very Tall")),
                 V3 = factor(c("Vegan", "Vegetarian", "Non-V", "Vegan", "Non-V", "Non-V")))

attach(df)

table(V3, V3)
table(V3, V2)
table(V3, V1)

我的目标是创建每个单独的表并将它们编译成一个列表。进入列表后，我可以使用匿名函数的组合进行感兴趣的计算并应用家庭电话。但是，我需要找到一种方法来在包含许多变量的大型数据集上创建这些表，而无需手动创建每个表的繁琐工作。

我尝试过使用lapply、sapply 和for 循环，但似乎找不到适合我的方法。有没有一种方法可以跨所有变量创建表并将它们放入列表中？

Answer 1

要将一个变量与 data.frame 中的所有其他变量进行比较，然后返回一个列表，您可以像这样使用lapply。

lapply(df[-1], table, df[,1])
$V2

            L M S XL XXL
  Medium    1 0 0  0   0
  Small     0 1 1  0   0
  Tall      1 0 0  1   0
  Very Tall 0 0 0  0   1

$V3

             L M S XL XXL
  Non-V      0 0 1  1   1
  Vegan      1 1 0  0   0
  Vegetarian 1 0 0  0   0

df[-1] 表示除第一个变量外的 df 中的所有变量。请注意df[,1] 中的逗号，它是返回向量而不是在table 中使用的单个元素列表所必需的。

---

如果你想建立一个不同变量对的表列表（v1-v2、v1-v3、v2-v3），你可以使用combn。 simple=FALSE 参数返回一个列表。

combn(df, 2, FUN=table, simplify=FALSE)
[[1]]
     V2
V1    Medium Small Tall Very Tall
  L        1     0    1         0
  M        0     1    0         0
  S        0     1    0         0
  XL       0     0    1         0
  XXL      0     0    0         1

[[2]]
     V3
V1    Non-V Vegan Vegetarian
  L       0     1          1
  M       0     1          0
  S       1     0          0
  XL      1     0          0
  XXL     1     0          0

[[3]]
           V3
V2          Non-V Vegan Vegetarian
  Medium        0     0          1
  Small         1     1          0
  Tall          1     1          0
  Very Tall     1     0          0

---

如果你还想自己获取每个变量的表，那么

lapply(1:2, function(i) combn(df, i, FUN=table, simplify=FALSE))

将生成一个嵌套的表格列表。