gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-02 09:34:42 27 4
gpt4 key购买 nike

我在看到( 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

非常感谢任何帮助!

最佳答案

Map 仍然是可行的方法,只需更新函数并按 colnamesrow.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/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com