将返回数据框的函数应用于数据框中的每一行答案

【问题标题】：Apply a function returning a data frame to each row in a data frame将返回数据框的函数应用于数据框中的每一行
【发布时间】：2020-08-12 18:10:06
【问题描述】：

我有一个数据框d和一个函数f，它把数据框的每一行都返回一个数据框：

d <- data.frame(x=c(1,2,3),y=c(11,22,33))

f <- function(row){
...
return(df)
}

现在，我想将f 应用于d（当然是为了避免循环通过f(d[k,]）。 apply 无法工作并将d 的行放在列表中并使用lapply 失败。我该怎么办？

【问题讨论】：

标签： r

【解决方案1】：

您没有在f 中显示您所拥有的内容，但基于 cmets，它是为数据帧编写的，因此应该可以：

lapply(split(d, seq_len(nrow(d))), f)

split 将 d 的每一行划分为 1 行数据帧，并使用 lapply 在每一行上应用函数 f。

你也可以使用by：

by(d, seq_len(nrow(d)), f)

【讨论】：