在列表

Question

我有不等大小的列表，我想将一个列表中的特定项目附加到另一个列表中的特定位置

第一个清单

dat <- structure(list(supergrp = c("D", "A", "P", "B"), 
               clusters = c("1", "2", "3", "1"), 
               items = structure(list(`1.2` = c("a", "c", "d"), 
                                      `2.1` = "b", `3` = "e", `4` = c("e", "b")),
                                 .Names = c("1.2", "2.1", "3", "4"))), 
          .Names = c("supergrp", "clusters", "items"), 
          row.names = c(NA, 4L), class = "data.frame")

第二个清单

val_to_append <- structure(list(supergrp = c("D", "A"), 
               clusters = c(1, 2), 
               items = structure(list(`1.2` = c("c", "f"), 
                                      `2.1` = c("c", "d", "e")), 
                                 .Names = c("1.2", "2.1"))), 
          .Names = c("supergrp", "clusters", "items"), 
          row.names = c(NA, -2L), class = "data.frame")

我想将val_to_append$item[[1]]追加到dat$item[[3]] 同样，我想将项val_to_append$item[[2]]追加到dat$item[[1]]

所需的输出是

supergrp clusters      items
1        D        1 a, c, d, e
2        A        2          b
3        P        3    e, c, f
4        B        1       e, b

我可以在循环中执行此操作

dat_indx <- c(3,1)
val_indx <- c(1,2)

fin_result <- dat


for(i in seq_along(dat_indx)) {
  out_put_indx <- dat_indx[[i]]
  fin_result$items[[dat_indx[[i]]]] <- unique(c(fin_result$items[[dat_indx[[i]]]],
  val_to_append$items[[val_indx[[i]]]]))
} 

我尝试了正常的矢量索引，例如

append(fin_result$items[[dat_indx]], val_to_append$items[[val_indx]])

没有成功。有没有一种有效的方法来做到这一点，因为我的列表，即数据帧，是非常大的数十万个样本。 我在考虑sapply，但没有具体的想法

Answer 1

我们可以使用mapply来实现这一目标。我们使用事先已知的索引值将val_to_append$items的值附加到dat$items。

dat_indx <- c(3,1)
val_indx <- c(1,2)

dat$items[dat_indx] <- mapply(function(x, y) 
   unique(c(dat$items[[x]], val_to_append$items[[y]])), dat_indx, val_indx)


dat
#  supergrp clusters      items
#1        D        1 a, c, d, e
#2        A        2          b
#3        P        3    e, c, f
#4        B        1       e, b

虽然这是解决问题的另一种方法，但我怀疑它的效率如何。