用NA替换数据

Question

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

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

为什么我要这样做：数据是股票数据（动物园系列） -

volume[[1]][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