1

我在 R 中有 2 个数据框列表（每个列表中的相应数据框大小相同）。是否可以将每个列表中的相应数据帧添加到一行中。

例如说我们有

list1 <- list('a' = data.frame('x'=c(0,1),'y'=c(2,0)), 'b' = data.frame('x'=c(1,1),'y'=c(1,1)))
list2 <- list('a' = data.frame('x'=c(1,2),'y'=c(1,1)), 'b' = data.frame('x'=c(0,1),'y'=c(0,1)))

所以 list1 是：

$a
 x y
 0 2
 1 0

$b
 x y
 1 1
 1 1

而 list2 是：

$a
 x y
 1 1
 2 1

$b
 x y
 0 0
 1 1

最终输出将是：

$a
 x y
 1 3
 3 1

$b
 x y
 1 1
 2 2

显然可以通过以下方式在两条单独的行中执行此操作：

listOutput <- list()
listOutput[['a']] <- list1[['a']] + list2[['a']]
listOutput[['b']] <- list1[['b']] + list2[['b']]

但是有没有一种简单的方法可以在一行中做到这一点，也许使用 lapply？

谢谢

4

3 回答 3

8

这是一种保留名称的方法：

mapply(function(x, y) x + y, list1, list2, SIMPLIFY=FALSE, USE.NAMES=TRUE)
于 2012-08-31T13:14:19.637 回答
2

这是一个非常针对您的问题的解决方案。换句话说，它假设：

  1. 你有两个列表
  2. 每个列表都有相同的元素
  3. 元素可以转换为矩阵

编码：

lapply(1:2, function(i)list1[[i]] + list2[[i]])
[[1]]
  x y
1 1 3
2 3 1

[[2]]
  x y
1 1 1
2 2 2
于 2012-08-31T12:58:49.440 回答
0

从理论上讲，您应该能够使用unlistand的组合来做到这一点relist，但它似乎不像记录的那样工作：

relist(unlist(list1)+unlist(list2),skeleton=list1)
$a
   x    y <NA> <NA> 
   1    3    3    1 

$b
   x    y <NA> <NA> 
   1    2    1    2
于 2012-08-31T13:17:12.943 回答