如何将 lapply 的结果组合到 data.frame？

Question

说，我有一个向量和一个带有一个参数的函数，它返回一个 data.frame。 我想将该函数应用于向量的每个元素，并将结果组合到一个大 data.frame 中。

我有以下带有 lapply 和 rbind 的工作命令。 但在我看来有点“不自然”。 有没有更好、更清晰的方法？ 我对 plyr 有一些想法，但我想避免使用 plyr，因为我想改用 dplyr。

 my_vector <- c(1,2,3)
 my_function <- function(a){
   unif <- runif(a)
   norm <- rnorm(a)
   return(data.frame(unif=unif, norm=norm))
 }

 as.data.frame(do.call(rbind,(lapply(my_vector, my_function))))

Answer 1

尝试

library(dplyr)
lapply(my_vector, my_function) %>% bind_rows()

Answer 2

您还可以使用data.table的rbindlist如下：

require(data.table)
df <- setDF(rbindlist(lapply(my_vector, my_function)))

没有setDF rbindlist 返回一个data.table而不是data.frame

Answer 3

嵌套列表的解决方案：

  result = bind_rows(lapply(list1, function(x) {
    bind_rows(lapply(list2, function(y) {
      lapply(list3, function(z) {
        read.delim(paste0(x, "_", y, "_", z))
      })
    }))
  }))