我需要在一个变量和另一个变量之间执行crosstable。 在我的情况下，Save.cluster和数据集中的其他变量。 我可以这样做（每个变量 - 新字符串）。
library('gmodels')
d <- CrossTable(iris1$Save.cluster, iris1$elements, expected = TRUE)
d <- CrossTable(iris1$Save.cluster, iris1$var3, expected = TRUE)
d <- CrossTable(iris1$Save.cluster, iris1$var4, expected = TRUE)
但是我有很多变量（100），并且创建100个字符串并不是个好主意。 如何在Save.cluster和另外100个变量之间执行crosstable。 这里有可重复的例子 虹膜1
structure(list(var1 = c(0L, 0L, 0L, 0L, 0L, 0L), var2 = c(1L,
0L, 0L, 1L, 0L, 1L), var3 = c(0L, 0L, 0L, 1L, 0L, 0L), var4 = c(0L,
0L, 1L, 1L, 0L, 0L), var5 = c(0L, 0L, 0L, 1L, 0L, 1L), save.cluster = 0:5), .Names = c("var1",
"var2", "var3", "var4", "var5", "save.cluster"), class = "data.frame", row.names = c(NA,
-6L))