r - 将一个列表中的矩阵合并到 R 中另一个列表中的矩阵上

Question

我在看到( Merge matrices from two lists in R )之前问过类似的问题。然而，与我之前的问题相反，在这种情况下:

1. 列表 1 中的矩阵与列表 2 中的标准矩阵具有更小、更大或相同大小的维度。
2. list1 中的某些矩阵包含 list2 中未包含的情况。

在下面，您将找到详细的问题:

假设我有两个包含多个矩阵的列表。第一个列表包含尺寸因矩阵而异的矩阵:

创建列表1的代码:

d<-c(0,1,0,1)
e<-c(1,0,0,0)
f<-c(0,0,0,0)
g<-c(1,0,0,0)
cn<-c(1,2,7,4)
p<-data.frame(d,e,f,g)
dimnames(p)<-list(cn,cn)
p<-as.matrix(p)

d<-c(0,0,0,1,1)
e<-c(0,0,1,0,0)
f<-c(0,1,0,0,0)
g<-c(1,0,0,0,0)
h<-c(1,0,0,0,0)
cn<-c(1,5,3,2,4)
q<-data.frame(d,e,f,g,h)
dimnames(q)<-list(cn,cn)
q<-as.matrix(q)

d<-c(0,1,0,1,0,0)
e<-c(1,0,0,0,0,0)
f<-c(0,0,0,0,0,1)
g<-c(1,0,0,0,1,0)
h<-c(0,0,0,1,0,0)
i<-c(0,0,1,0,0,0)
cn<-c(1,2,3,6,8,9)
r<-data.frame(d,e,f,g,h,i)
dimnames(r)<-list(cn,cn)
r<-as.matrix(r)

list1<-list(p,q,r)
names(list1)<-1990:1992

列表1:

$`1990`
  1 2 7 4
1 0 1 0 1
2 1 0 0 0
7 0 0 0 0
4 1 0 0 0

$`1991`
  1 5 3 2 4
1 0 0 0 1 1
5 0 0 1 0 0
3 0 1 0 0 0
2 1 0 0 0 0
4 1 0 0 0 0

$`1992`
  1 2 3 6 8 9
1 0 1 0 1 0 0
2 1 0 0 0 0 0
3 0 0 0 0 0 1
6 1 0 0 0 1 0
8 0 0 0 1 0 0
9 0 0 1 0 0 0

第二个列表包含始终具有相同维度的矩阵。 list1 中的矩阵可以比 list2 中的矩阵更小、更大或大小相同。此外，list2 中的标准矩阵有时并不包含 lst1 中相应矩阵的所有情况。

生成列表2的代码:

o<-matrix(NA,nrow=5,ncol=5)
dimnames(o)<-list(1:5, 1:5)
list2<-list(o,o,o)
names(list2)<-1990:1992

列表2:

$`1990`
   1  2  3  4  5
1 NA NA NA NA NA
2 NA NA NA NA NA
3 NA NA NA NA NA
4 NA NA NA NA NA
5 NA NA NA NA NA

$`1991`
   1  2  3  4  5
1 NA NA NA NA NA
2 NA NA NA NA NA
3 NA NA NA NA NA
4 NA NA NA NA NA
5 NA NA NA NA NA

$`1992`
   1  2  3  4  5
1 NA NA NA NA NA
2 NA NA NA NA NA
3 NA NA NA NA NA
4 NA NA NA NA NA
5 NA NA NA NA NA

我想要做的是将 list2 中的 NA 替换为 list1 中相应矩阵的值(如果可用)。在此过程中，list2 中的矩阵的维数应保持不变。结果应该如下所示:

$`1990`
   1  2  3  4  5 
1  0  1 NA  1 NA
2  1  0 NA  0 NA
3 NA NA NA NA NA
4  1  0 NA  0 NA
5 NA NA NA NA NA

$`1991`
   1  2  3  4  5
1  0  1  0  1  0
2  1  0  0  0  0
3  0  0  0  0  1
4  1  0  0  0  0
5  0  0  1  0  0

$`1992`
   1  2  3  4  5
1  0  1  0  NA NA
2  1  0  0  NA NA
3  0  0  0  NA NA
4  NA NA NA NA NA
5  NA NA NA NA NA

非常感谢任何帮助!

Answer 1

Map 仍然是可行的方法，只需更新函数并按 colnames 和 row.names 对第一个列表进行排序:

list11 = lapply(list1, function(u){
            m=data.matrix(u)
            m[order(as.integer(row.names(m))),order(as.integer(colnames(m)))]
     })

f = function(A,B)
{
    A[row.names(A) %in% row.names(B), colnames(A) %in% colnames(B)]=B[row.names(B) %in% row.names(A), colnames(B) %in% colnames(A)]
    A
}

Map(f, list2, list11)

#$`1990`
#   1  2  3  4  5
#1  0  1 NA  1 NA
#2  1  0 NA  0 NA
#3 NA NA NA NA NA
#4  1  0 NA  0 NA
#5 NA NA NA NA NA

#$`1991`
#  1 2 3 4 5
#1 0 1 0 1 0
#2 1 0 0 0 0
#3 0 0 0 0 1
#4 1 0 0 0 0
#5 0 0 1 0 0

#$`1992`
#   1  2  3  4  5
#1  0  1  0 NA NA
#2  1  0  0 NA NA
#3  0  0  0 NA NA
#4 NA NA NA NA NA
#5 NA NA NA NA NA