从一个函数计算多列并将它们添加到 data.frame

Question

我想从 data.frame 列上的函数返回多个结果，并将这些新列添加到同一个 data.frame 以及其他简单计算。

举个简单的例子，如果我想得到sin函数的积分值和绝对误差以及积分区间的中点：

df <- data.frame(Lower = c(1,2,3), Upper = c(2,3,4))
setDT(df)
getIntegral <- function(l, u) {
  n <- integrate(sin, mean(l), mean(u))
  list(Value=n$value, Error=n$abs.error)
}
df[,
   c('Value', 'Error', 'Mid') := {
     n <- getIntegral(Lower, Upper)
     list(n$Value,
          n$Error,
          (Lower+Upper)/2)
   }]
df
   Lower Upper     Value        Error Mid
1:     1     2 0.5738457 6.370967e-15 1.5
2:     2     3 0.5738457 6.370967e-15 2.5
3:     3     4 0.5738457 6.370967e-15 3.5

我不太喜欢我的方法，因为将新列的名称和分配给它们的值分开使我难以阅读，我怎样才能更好地完成这项任务？它是长数据处理链的一部分，所以我不想在外部创建临时变量，所以我更喜欢单独使用 data.table 或 dplyr 的解决方案。

Answer 1

RHS 应该是一个值列表，并且列表中的每个元素都被转换为一列（并在必要时回收）。

您的函数已经返回一个 list（每个长度为 1），(Lower+Upper)/2 返回一个包含 3 个值的向量（此处）。为了返回一个列表，你可以使用函数c()，如下：

df[, c('Value', 'Error', 'Mid') := c(getIntegral(Lower, Upper), list((Lower+Upper)/2))]
#    Lower Upper     Value        Error Mid
# 1:     1     2 0.5738457 6.370967e-15 1.5
# 2:     2     3 0.5738457 6.370967e-15 2.5
# 3:     3     4 0.5738457 6.370967e-15 3.5

这利用了c(list, list) 产生串联列表这一事实。