我在看到( Merge matrices from two lists in R )之前问过类似的问题。然而,与我之前的问题相反,在这种情况下:
- 列表 1 中的矩阵与列表 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
非常感谢任何帮助!
最佳答案
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
关于r - 将一个列表中的矩阵合并到 R 中另一个列表中的矩阵上,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/28296909/