동시에

Question

다음과 같이 I가

# test case 
a<-matrix(rep(c(1,2,3,4,5,6),3),ncol=3) 
b<-t(matrix(c(1,3,4))) 

a 

    [,1] [,2] [,3] 
[1,] 1 1 1 
[2,] 2 2 2 
[3,] 3 3 3 
[4,] 4 4 4 
[5,] 5 5 5 
[6,] 6 6 6 

b 

    [,1] [,2] [,3] 
[1,] 1 3 4 

a의 열에 b "대응"의 각 요소를 가지며, 기능에 필요한 가정 myFun

myfun<-function(x,n) { 
    x[1:n]<-NA 
    x 
} 

나는

을 반환하는 데 사용할

t<-cbind(myfun(a[,1],b[1]), myfun(a[,2],b[2]), myfun(a[,3],b[3])) 

t 
    [,1] [,2] [,3] 
[1,] NA NA NA 
[2,] 2 NA NA 
[3,] 3 NA NA 
[4,] 4 4 NA 
[5,] 5 5 5 
[6,] 6 6 6 

는

는 어떻게 for 루프를 사용하지 않고 apply/lapply/sapply를 사용하여 위를 달성 할 수 ? 예를 들어

, 그때 전체 b 내가 apply(a,2,FUN=myfun,b) 같은 myfun 있음은 각각에 해당하는 b의 요소를 데리러 다시 쓸 수있는 방법 등 myfun 대신 b[1] 또는 b[2]

에 전달, apply(a,2,FUN=myfun,b) 시도 a의 열?

Answer 1

당신은이 작업을 위해 벡터의 부분 집합을 사용할 수 있습니다

(NAcells <- unlist(sapply(seq_along(b), function(i) seq(b[i])+(i-1)*nrow(a)))) 
[1] 1 7 8 9 13 14 15 16 

a[NAcells] <- NA 
a 
    [,1] [,2] [,3] 
[1,] NA NA NA 
[2,] 2 NA NA 
[3,] 3 NA NA 
[4,] 4 4 NA 
[5,] 5 5 5 
[6,] 6 6 6