根据存储在另一个列表中的索引访问列表中的多个元素

Question

我要做的是从包含列表的数据框列中提取元素，想象列 df$A 有 3 行，每行包含列表：

c(111, 222, 333)
c(444, 555, 666)
c(777, 888, 999)

（列表从 1 到 230 个元素不等）

df$B 列存储元素的某些位置：

1
c(1, 2)
c(1, 2, 3)

我的目标是根据存储在列 df$A 中的索引从列 df$B 中提取列 df$C 元素，因此列 df$C 看起来像

111
c(444, 555)
c(777, 888, 999)

我已经尝试过 unlist、sapply、mutate 的不同组合，用向量访问列表元素，比如

df$A[nrow][[c(df$B)]]

等等，但我不断遇到不同的错误，并没有接近预期的结果。

最后，我想要实现的是对列表中某个位置的每一行中的整数求和，因此潜在的 df$D 可能看起来像

111
999
2664

我担心也许我的整个方法都是错误的，我正在强迫 R 以一种不符合设计的方式行事，但到目前为止，我通常设法为我问自己的每个问题得到正确的答案。

Answer 1

不确定整个 data.frame 是否包含列表的东西：

数据：（虽然不推荐）只使用两个列表（l1，l2）

df1 <- data.frame(A = 1:3)

df1$A <- list(c(111, 222, 333),
              c(444, 555, 666),
              c(777, 888, 999))

df1$B <- list(1,
              c(1, 2),
              c(1, 2, 3))

代码：?mapply 的时间到了。

#df1$D <-
mapply(function(vals, inds) {sum(vals[inds])}, vals = df1$A, inds = df1$B)

结果：

#[1]  111  999 2664