r - 在 R 中使用 prop.table 循环变量

Question

我有一个简单的问题。我试图遍历一组变量来生成 prop.tables。我只是想通过视觉检查结果。

这是来自 mtcars 数据集的一个无意义的例子。

#define loop variables
test <- mtcars
target_var <- c("mpg", "wt")   # targets
group_var <- c("gear", "carb")   # groups to loop through

#loop through combinations of targets and groups, running prop.table
for (i in target_var) {
  for (j in group_var) {

    print(prop.table(table(test$i, test$j), 2))
  }
}

输出为以下 6 个:

<0 x 0 matrix>

我知道我遗漏了一些基本的东西。

Answer 1

我看到您对循环解决方案感兴趣，但我会发布一个 tidyverse 方法，您可以在其中将函数map 到变量的每个组合，而不是有一个循环。

test <- mtcars
target_var <- c("mpg", "wt")
group_var <- c("gear", "carb")

library(tidyverse)

# get combinations of variables in a dataset
df1 = expand.grid(target_var, group_var, stringsAsFactors = F)

# apply the function (prop.table etc.) to those combinations
map2(df1$Var1, df1$Var2, ~prop.table(table(test[, .x], test[, .y]), 2))

这将为您提供一个列表，其中包含您想要作为元素的表格。