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

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

您可以合并这两个列表，然后拆分名称的共同部分。 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

Answer 2

您可以为此使用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