英文:
How to remove NAs in an array
问题
考虑我们有一个数组：
tmp <- array(c(1, 2, 3, 4,NA, NA, NA, NA,5, 6, 7, 8), dim = c(2, 2, 3))> print(tmp), , 1[,1] [,2][1,] 1 3[2,] 2 4, , 2[,1] [,2][1,] NA NA[2,] NA NA, , 3[,1] [,2][1,] 5 7[2,] 6 8
在这里，我想移除包含 NA 的第二个矩阵。
当我们有一个矩阵时，使用 complete.cases 可以轻松移除包含 NA 的行。
tmp <- matrix(c(1, 2, NA, NA, 3, 4), ncol = 2, byrow = TRUE)> print(tmp[complete.cases(tmp), ])[,1] [,2][1,] 1 2[2,] 3 4
但是，在高维情况下，我不知道如何移除包含 NA 的元素。
英文:
Consider that we have an array:
tmp <- array(c(1, 2, 3, 4,NA, NA, NA, NA,5, 6, 7, 8), dim = c(2, 2, 3))> print(tmp), , 1[,1] [,2][1,] 1 3[2,] 2 4, , 2[,1] [,2][1,] NA NA[2,] NA NA, , 3[,1] [,2][1,] 5 7[2,] 6 8
Here, I want to remove the second matrix with NAs.
When we have a matrix, it is not hart to remove a row with NAs using the complete.cases
tmp <- matrix(c(1, 2, NA, NA, 3, 4), ncol = 2, byrow = TRUE)> print(tmp[complete.cases(tmp), ])[,1] [,2][1,] 1 2[2,] 3 4
But, in higher dimensional cases, I have no idea how to remove the NAs
答案1
得分: 2
apply在第3维度上应用，然后进行子集操作：
tmp[,,apply(tmp, 3, \(x) !all(is.na(x)) )]# , , 1## [,1] [,2]# [1,] 1 3# [2,] 2 4## , , 2## [,1] [,2]# [1,] 5 7# [2,] 6 8
英文:
apply across the 3rd dimension, and then subset:
tmp[,,apply(tmp, 3, \(x) !all(is.na(x)) )]#, , 1## [,1] [,2]#[1,] 1 3#[2,] 2 4##, , 2## [,1] [,2]#[1,] 5 7#[2,] 6 8
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论