R中共轭表的分离传导

在我的数据集中有7个二进制（分类）变量（x1-x7） 另一个变量是scale，我们不会使用它。

mydat

（部分）

我创建了在所有二进制变量之间执行交叉制表的函数。 也许它对任何人都有用。 它起作用了

mydat=read.csv(mydat)
library("gmodels")
mult_crosstab <- function (data = cross) {
  for (j in 1:(ncol(data)-1)) {

    for (i in (j+1):(ncol(data))) {

      x <- names(data)[j]
      y <- names(data)[i]
      call <- call("CrossTable", as.name(x), as.name(y), chisq = TRUE)
      eval(call, data)
    }
  }
}

mult_crosstab()

mydat=read.csv（mydat）
库（“gmodels”）
mult_crosstab按城市分割数据，然后迭代每个分割并运行函数

lapply(split(cross, cross$city), mult_crosstab)

CrossTable似乎是一个讨厌的小函数，它打印到控制台而不是返回对象。如果需要，您可以使用
capture.output（上面的代码）
将输出捕获为文本。
按城市分割数据，然后迭代每次分割并运行函数

lapply(split(cross, cross$city), mult_crosstab)

CrossTable似乎是一个讨厌的小函数，它打印到控制台而不是返回对象。您可以使用
capture.output（上面的代码）
将输出捕获为文本，如果这是您想要的