如何用 NA 替换列表值?

How to replace list values with NA?

有以下列表:

> mylist <- list(x=1:3, y=c(1,0.8,1))

如何用 NA

替换 mylist$y!=1
mylist$y[mylist$y!=1] <- NA

mylist

# $x
# [1] 1 2 3
# 
# $y
# [1]  1 NA  1
with(mylist,modifyList(mylist,list(y=replace(y,y!=1,NA))))
$x
[1] 1 2 3

$y
[1]  1 NA  1