将函数应用于数据框的列(列是列表)

Question

我有一个包含2列的数据框,第一列是ID号,第二列是数字列表.我已经定义了一个函数,它总结了列表并添加2.我想要做的是在不使用for循环的情况下对所有行进行计算.我试过使用申请,但我不能让它工作......

这是代码:

测试数据框:

d1 <- c(1,2,3,4,5)
d2 <- c(4,6,8)
d3 <- c(5,10)

df1 <- data.frame(cbind(1, I(list(d1))))
df2 <- data.frame(cbind(2, I(list(d2))))
df3 <- data.frame(cbind(3, I(list(d3))))
df <- rbind(df1, df2, df3)

定义的函数sum2:

sum2 <- function(a)
{
  sum(unlist(a)) + 2
}

如何使用apply并将第三列添加到包含计算值的df？

谢谢!

Answer 1

以下适用于您的示例

sapply(df[,2], function(x) sum(x)+2)