R 中有没有办法从数据列表创建汇总统计表

Question

我正在尝试使用 table1::table1 function 制作我的数据汇总表。

我可以让下面的代码按预期工作。

DF = list('A' = rnorm(100, mean = 1),
          'B' = rnorm(100, mean = 2),
          'C' = rnorm(100, mean = 3))
table1::table1(~A+B+C, data=DF, overall = 'List 1')

我正在尝试做与上面相同的事情，但相反，我有一个我想要组合的数据列表，并将列作为列表 1 和列表 2，与来自 A、B、C 的相同汇总统计数据作为行。

DF = NULL
DF[['List 1']] = list('A' = rnorm(100, mean = 1),
          'B' = rnorm(100, mean = 2),
          'C' = rnorm(100, mean = 3))

DF[['List 2']] = list('A' = rnorm(100, mean = 1),
          'B' = rnorm(100, mean = 2),
          'C' = rnorm(100, mean = 3))

有没有人有任何建议或知道更好的方法来实现这一点？

Answer 1

我们可以使用purrr中的transpose并将list元素flatten或unlist列出为 3 个list

library(purrr)
DF2 <- transpose(DF) %>% 
            map(flatten_dbl)

注意： DF是 OP 帖子中的第二个数据集

现在，我们用table1进行测试

table1::table1(~A+B+C, data=DF2, overall = 'List 1')

-输出

---

如果我们需要创建一个两列表，请将向量list list转换为单个data.frame ，同时使用外部list元素的names创建列

new_DF <- do.call(rbind, Map(cbind, nm1 = names(DF), 
         lapply(DF, as.data.frame)))
row.names(new_DF) <- NULL

table1::table1(~ A + B + C |nm1, data = new_DF)

-输出