작은 행렬이 있습니다.
SMALL<-matrix(c(1:9),3, 3)
colnames(SMALL)<-c("25","36","48")
rownames(SMALL)<-c("18","25","48")
다음과 같이 보입니다.
25 36 48
18 1 4 7
25 2 5 8
48 3 6 9
그리고 큰 행렬 :
LARGE<-matrix(0,4, 4)
colnames(LARGE)<-c("12","25","36","48")
rownames(LARGE)<-c("18","25","38","48")
다음과 같이 보입니다.
12 25 36 48
18 0 0 0 0
25 0 0 0 0
38 0 0 0 0
48 0 0 0 0
큰 행렬의 값을 열 / 행 이름을 기반으로 한 작은 행렬의 값으로 바꾸고 싶습니다.
이 결과를 찾고 :
12 25 36 48
18 0 1 4 7
25 0 2 5 8
38 0 0 0 0
48 0 3 6 9
어떤 아이디어?
SMALL
in의 각 열 및 행 이름에 일치하는 항목이 있다고 가정합니다 LARGE
.
i <- match(rownames(SMALL), rownames(LARGE))
j <- match(colnames(SMALL), colnames(LARGE))
LARGE[i,j] <- SMALL
# 12 25 36 48
#18 0 1 4 7
#25 0 2 5 8
#38 0 0 0 0
#48 0 3 6 9
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다