使用 R 中的 lapply 将值列表作为列添加到现有数据框答案

【问题标题】：Add list of values as columns to existing dataframe using lapply in R使用 R 中的 lapply 将值列表作为列添加到现有数据框
【发布时间】：2019-03-11 17:15:51
【问题描述】：

我有一个带有 ID 列表的数据框和一个可以使用每个 ID 的函数：

对数据进行 API 调用，
总结这些数据，然后
生成结果列表。

如何使用 lapply 将每个 ID 的返回值列表（作为列）合并到数据框？

下面的示例在某种程度上复制了该过程...我有一个带有 ID 的数据框。该函数返回一个包含两个值的列表，我想将其作为列添加到数据框 myIDs。

myIDs <- as.data.frame(seq(1, 5))
names(myIDs) <- c("ID")

myfunc <- function (ID) {
  id.results <- list(add.one = ID + 1,
                     times.two = ID * 2
                    )
  return(id.results)
}

lapply(myIDs , function(x) myfunc(myIDs$ID))

【问题讨论】：

你看dplyr::bind_rows了吗？
你尝试过类似df$new_column = lapply(df$id, your_function_to_make_api_call_and_summarize_and_produce_list_of_results)的方法吗？
不，我没有尝试过 dplyr::bind_rows...我主要尝试过基本 R 方法。我去看看。
我不认为bind_rows 从您的描述中对您有用，但是如果您显示一点示例数据和结果，也许我会被证明是错误的。也许bind_rows 在所有结果上，然后merge...
听起来我们需要一个例子......

标签： r lapply

【解决方案1】：

根据您的数据/功能，这可能不起作用，但这是我从您的问题中得到的：

set.seed(111)
df <- data.frame(ID=1:100)

MyFunction <- function(x) return(list(id=x, res1=runif(1, max=x), res2=sample(letters,1)))

out <- apply(df, 1, MyFunction)
mylist <- do.call("rbind",out)
mydf <- as.data.frame(mylist)

attributes(mydf)

> attributes(mydf)
$names
[1] "id"   "res1" "res2"

$class
[1] "data.frame"

$row.names
  [1]   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16
 [17]  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32
 [33]  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48
 [49]  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64
 [65]  65  66  67  68  69  70  71  72  73  74  75  76  77  78  79  80
 [81]  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96
 [97]  97  98  99 100

【讨论】：

看来您正在绑定返回的行，但并未真正将它们添加到原始 df。这就是我接近它的一种方式，但使用了一个 for 循环，并与原始 df 合并。之所以需要合并，是因为实际上，除了我希望保留的 ID 之外，我还有其他数据元素。