在数组 R 中查找并将数字替换为 NA

Question

我有一些大脑图像的 NifTi 文件，其中有很多我想用 NA 替换的零，但我不确定该怎么做。我在 is.na() 函数的描述中读到：“通用函数 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

这里有一些可能的选项可以将 0 替换为 NA

> 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"))

}

在数组 R 中查找并将数字替换为 NA

Find and Replace number to NA in array R

arrays

for-loop

r

nifti