바이너리 벡터를 기반으로하는 행렬 선택

Question

내 코드의 일부분에서 필자는 이진 행렬을 기반으로하는 행렬의 특정 열을 선택하여 목록에 저장해야하지만 다음과 같은 문제가 있습니다. 아무도 문제가 뭔지 알고 있습니까?

> data 
     A B C D 
    [1,] 1 6 11 16 
    [2,] 2 7 12 17 
    [3,] 3 8 13 18 
    [4,] 4 9 14 19 
    [5,] 5 10 15 20 

    > select<-c(1,0,1,0) 

> p<-data[,select, drop=FALSE] 
> p 
    A A 
[1,] 1 1 
[2,] 2 2 
[3,] 3 3 
[4,] 4 4 
[5,] 5 5 

내 예상 출력은 다음과 같습니다 : 여기 내 매트릭스 코드

> p 
    A C 
[1,] 1 11 
[2,] 2 12 
[3,] 3 13 
[4,] 4 14 
[5,] 5 15 

Answer 1

당신은 논리적 인 벡터로 변환해야합니다 그렇지 않으면이 열 번호로 1과 0을 처리합니다 :

data[,as.logical(select), drop=F] 
# A C 
# 1 1 11 
# 2 2 12 
# 3 3 13 
# 4 4 14 
# 5 5 15 

Answer 2

시도해 볼 수도 있습니다. select을 제공하는 경우 열 번호별로 열을 선택하라는 메시지가 나타납니다. select==1을 제공 할 때 먼저 논리 벡터를 얻고이를 사용하여 열을 선택합니다.

data <- matrix(1:20, nrow = 5, dimnames = list(NULL, c("A", "B", "C", "D"))) 
select <- c(1, 0, 1, 0) 
data[, select == 1] 
##  A C 
## [1,] 1 11 
## [2,] 2 12 
## [3,] 3 13 
## [4,] 4 14 
## [5,] 5 15