2 테이블을 비교하고 테이블 2에만 고유 한 행을 추출하십시오.

Question

행 번호와 열 번호가 서로 다른 두 개의 행렬이 있습니다. 행 이름을 비교하고 표 1의 행이 아닌 표 2의 행만 추출 할 수 있습니까?

즉

a1 <- data.frame(a = 1:5, b=letters[1:5]) 
a2 <- data.frame(a = 1:3, b=letters[1:3], c=letters[4:6]) 
a3 <- as.matrix(a1) 
a4 <- as.matrix (a2) 
row.names(a3) <- c("chr1:981994", "chr1:1025751", "chr1:1026919", "chr1:1118414", "chr1:1119410") 
row.names(a4) <- c("chr1:1118414", "chr1:1119410", "chr1:1216877") 

그래서 다음 두 가지를 비교하고 독특한 우리는 행 이름 사이 비교 %in%를 사용하여 표 2

Answer 1

에 관한 과 표 2에서 마지막 행을 새로운 행렬을 작성

a4[!row.names(a4) %in% row.names(a3), , drop=FALSE] 
#    a b c 
#chr1:1216877 "3" "c" "f"