Question

我在列表中有data.frame对象，这是我实现的函数的输出。但是，我打算创建一个新列表，其中不同列表中的data.frame对象将它们放在一起。我尝试了几种方法来获得我预期的输出但不是很优雅。有谁知道有效地进行这种操作的任何有用技巧？有没有优雅的解决方案来完成这项任务？有什么想法吗？

这是一个很小的例子：

savedList <- list(
  foo_saved = data.frame(v1=c(1,6,16), v2=c(4,12,23)),
  bar_saved = data.frame(v1=c(7,19,31), v2=c(16,28,41)),
  cat_saved = data.frame(v1=c(5,13,26), v2=c(11,21,42))
)

dropedList <- list(
  foo_droped = data.frame(v1=c(4,9,20), v2=c(7,15,29)),
  bar_droped = data.frame(v1=c(14,26,35), v2=c(21,30,47)),
  cat_droped = data.frame(v1=c(18,29,39), v2=c(25,36,48))
)

这是我的预期输出：

foo <- list(
  foo_saved = data.frame(v1=c(1,6,16), v2=c(4,12,23)),
  foo_droped = data.frame(v1=c(4,9,20), v2=c(7,15,29))
)

bar <- list(
  bar_saved = data.frame(v1=c(7,19,31), v2=c(16,28,41)),
  bar_droped = data.frame(v1=c(14,26,35), v2=c(21,30,47))
)

cat <- list(
  cat_saved = data.frame(v1=c(5,13,26), v2=c(11,21,42)),
  cat_droped = data.frame(v1=c(18,29,39), v2=c(25,36,48))

)

我尝试了一些现有的解决方案，但我感到不满意。如何轻松获得所需的输出？有没有高效，兼容的解决方案？非常感谢

Answer 1

您可以使用mapply，它将通过两个列表进行迭代，并为每对项目制作一个列表：

res <- mapply( list, savedList, dropedList, SIMPLIFY = F)
str(res)
List of 3
 $ foo_saved:List of 2
  ..$ :'data.frame':    3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 1 6 16
  .. ..$ v2: num [1:3] 4 12 23
  ..$ :'data.frame':    3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 4 9 20
  .. ..$ v2: num [1:3] 7 15 29
 $ bar_saved:List of 2
  ..$ :'data.frame':    3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 7 19 31
  .. ..$ v2: num [1:3] 16 28 41
  ..$ :'data.frame':    3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 14 26 35
  .. ..$ v2: num [1:3] 21 30 47
 $ cat_saved:List of 2
  ..$ :'data.frame':    3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 5 13 26
  .. ..$ v2: num [1:3] 11 21 42
  ..$ :'data.frame':    3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 18 29 39
  .. ..$ v2: num [1:3] 25 36 48

Answer 2

您可以合并两个列表，然后拆分名称的公共部分。 split()不是最有效的函数，但代码非常简单。

x <- c(savedList, dropedList)
split(x, sub("_.*", "", names(x)))

这给出了以下内容：

List of 3
 $ bar:List of 2
  ..$ bar_saved :'data.frame':  3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 7 19 31
  .. ..$ v2: num [1:3] 16 28 41
  ..$ bar_droped:'data.frame':  3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 14 26 35
  .. ..$ v2: num [1:3] 21 30 47
 $ cat:List of 2
  ..$ cat_saved :'data.frame':  3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 5 13 26
  .. ..$ v2: num [1:3] 11 21 42
  ..$ cat_droped:'data.frame':  3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 18 29 39
  .. ..$ v2: num [1:3] 25 36 48
 $ foo:List of 2
  ..$ foo_saved :'data.frame':  3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 1 6 16
  .. ..$ v2: num [1:3] 4 12 23
  ..$ foo_droped:'data.frame':  3 obs. of  2 variables:
  .. ..$ v1: num [1:3] 4 9 20
  .. ..$ v2: num [1:3] 7 15 29

如何更优雅地操作不同列表中的data.frame对象？

2 个答案: