对 data.table 的每一列运行分析

Question

我有一个非常大的数据表，其中包含一个响应变量，该变量可以为零（失败）或 1 成功。在 data.table 中有很多列，每列代表一个因素，响应率可能会有所不同。我想对每一列数据进行相同的分析，这将产生各种不同的东西，例如该列的响应率表、直方图等。

我想生成的表格示例如下所示：

data.dt <- data.table(response=round(runif(100,0,1),0), 
                      factor1 = sample(LETTERS,100, replace=TRUE),
                      factor2 = sample(letters,100, replace=TRUE)
                     )
setkey(data.dt, factor1)
table.dt <- data.dt[,list(patients=.N,
                          successes=sum(response)
                         ), 
                     by=list(factor1)
                    ]
table.dt[,successesRate  := round(successes/patients,2)] 
table.dt

现在只是坚持表格，我如何在 data.table 的每一列上运行此表（在本例中为 factor1 和 factor2）并单独存储结果表（可能在列表中）以供进一步参考？

非常感谢。

Answer 1

我会先融化数据：

library(reshape2)

data.dt.melt <- melt(data.dt, id.vars="response",
    variable.name="table", value.name="factor")

table.dt <- data.dt.melt[,list(patients=.N, 
    successes=sum(response)), 
    by=list(table, factor)]

      table factor patients successes
 1: factor1      A        4         3
 2: factor1      B        3         0
 3: factor1      C        3         2
 4: factor1      D        2         1
 5: factor1      E        7         3
 6: factor1      F        4         1
 ...
47: factor2      x        2         0
48: factor2      i        3         0
49: factor2      t        2         1
50: factor2      e        4         1
51: factor2      a        2         1
52: factor2      k        3         2

您可能只需要一张表就到此为止，然后使用“表”列来选择要使用的“因素”。但是，如果您更喜欢将它们拆分为包含两个表的列表：

table.list <- list(factor1=table.dt[table=="factor1"],!"table",with=F],
    factor2=table.dt[table=="factor2"][,!"table",with=F])