用NA替换数据

Question

fct<- function(x){volume03[[x]][which(is.na(last03[[x]]))]<- NA} 
lapply(1:length(volume03, fct) 

我想将volume03中的所有数字都设置为NA，即last03中的NA。但是，R正在返回仅有NAs的列表。

为什么我试图做到这一点：数据是存量数据（动物园系列） - 在第一天为公司1

volume[[1]][1] 

返回数据。有些数据为零，但情况并非如此。

帮助非常感谢！

Answer 1

或者，你可以做

for (i in 1:length(volume03)) volume03[[i]][is.na(last03[[i]])] <- NA 

指数可以明确容易操作：

l=c(NA, 1, 2);k=c(3, 5, 6) 
    > i.l=is.na(l) 
    > i.l 
    [1] TRUE FALSE FALSE 
    > k[i.l]=NA 
    > k 
    [1] NA 5 6 
    > l=c(NA, 1, 2);k=c(3, 5, 6) 
    > k[is.na(l)]=NA 
    > k 
    [1] NA 5 6