r - 使用 lapply 制作表格

Question

我有一个非常基本的问题，更有经验的编码人员可能可以轻松回答。
我有几列数据。我已将它们转换为向量 x1 到 x9。
我按如下方式运行表函数:

table(x1,x2) 

我的问题是:

我怎样才能使我有一组表，例如:table(x1,x2), table(x1,x3), table(x1,x4) 等而不重复输入表函数(或我正在使用的任何函数；我还需要制作条形图)？我怀疑这涉及应用功能，但我一直无法让它工作。

Answer 1

您可以按如下方式使用lapply:

# First, some sample data
set.seed(1)
yo = data.frame(x1 = sample(letters[1:5], 20, replace=TRUE),
                x2 = sample(0:2, 20, replace=TRUE),
                x3 = sample(0:2, 20, replace=TRUE),
                x4 = sample(0:2, 20, replace=TRUE))
lapply(2:ncol(yo), function(x) table(yo[, 1], yo[, x]))

要获得条形图，您可以保存该输出并同时使用 lapply 和 barplot，或者您可以这样做:

par(mfrow = c(3, 1)) # To plot them all at once...
lapply(2:ncol(yo), function(x) barplot(table(yo[, 1], yo[, x]), 
                                       beside=TRUE, legend=TRUE))

这是一个示例图。如果需要，可以进行更多自定义以“美化它”。