在數組 R 中查找數字並將其替換為 NA

Question

我有一些腦圖像的 NifTi 文件，其中有很多我想用 NA 替換的零，但我不知道該怎么做。 我在is.na() function 的描述中讀到：“通用 function is.na<- 將元素設置為 NA”所以我想我可以使用它，但它不起作用。 這是我嘗試過的具體內容：

library(RNifti)

in.path <- "R_Things/Voxel/"
out.path <- "R_Things/Outputs/"

ids <- c('100','101','102','103','104')

for (i in ids) {

a <- readNifti(paste0(in.path, i, ".nii.gz"))

is.na(a) <- 0


writeNifti(image=a, file=paste0(out.path, i, "_with_NAs.nii.gz"))

}

任何關於我可以做些什么不同的想法都會非常有幫助，謝謝！

Answer 1

以下是用NA替換0的一些可能選項

> replace(a, a == 0, NA)
[1] NA  1  2 NA  3 -1

> a * NA^(a == 0)
[1] NA  1  2 NA  3 -1

虛擬數據

> a <- c(0, 1, 2, 0, 3, -1)

Answer 2

對於任何感興趣的人，感謝@Baroque，這是我的最終代碼

library(RNifti)

in.path <- "R_Things/Voxel/"
out.path <- "R_Things/Outputs/"

ids <- c('100','101','102','103','104')

for (i in ids) {

a <- readNifti(paste0(in.path, i, ".nii.gz"))

a[a==0] <- NA

writeNifti(image=a, file=paste0(out.path, i, "_with_NAs.nii.gz"))

}