특정 조건에 대한 필터링 후 매트릭스

Question

나는 전체 행렬의 목록을 가지고 각각의 행렬처럼 보이는

 P V E T R L K A - 
    P 17 0 1 0 0 0 0 0 0 
    S 3 0 2 0 1 1 1 0 0 
    O 2 0 0 1 0 0 0 0 1 
    V 0 2 0 0 0 0 0 1 0 
    M 0 3 0 0 0 0 0 0 0 
    L 3 0 0 0 0 0 0 0 0 
    C 1 0 0 0 0 0 0 0 0 

필터링, 나는 각각의 모습을 2 * 2 매트릭스의 목록, 왼쪽 오전 :

를

P E 
P 17 1 
S 3 2 

전체 행렬에서 2 * 2 행렬의 열만 선택하면됩니다. 어떻게 선택합니까?

Answer 1

질문은 완전히 명확하지 않지만 전체 행렬에서 특정 열을 추출하는 방법을 찾으려하고있는 것으로 보입니다. 추출 할 열은 작은 행렬에있는 열이므로이 경우 열 P 및 E을 추출하십시오.

이렇게하는 방법입니다. 먼저 colnames을 사용하여 작은 행렬의 열 이름을 찾습니다.

full[, colnames(sub)] 
    P E 
P 17 1 
S 3 2 
O 2 0 
V 0 0 
M 0 0 
L 3 0 
C 1 0 

---

귀하의 데이터는 다음과 같습니다 :

full <- structure(c(17L, 3L, 2L, 0L, 0L, 3L, 1L, 0L, 0L, 0L, 2L, 3L, 
0L, 0L, 1L, 2L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 
0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 
0L, 0L, 0L), .Dim = c(7L, 9L), .Dimnames = list(c("P", "S", "O", 
"V", "M", "L", "C"), c("P", "V", "E", "T", "R", "L", "K", "A", 
"X."))) 

sub <- structure(c(17L, 3L, 1L, 2L), .Dim = c(2L, 2L), .Dimnames = list(
    c("P", "S"), c("P", "E")))