如何在R中的矩阵中找到非NA值的行索引？

矩阵也可以包含缺失值，并且这些缺失值也可以通过随机化放置在矩阵中，因此我们不能确定那些称为NA的值和非缺失值的位置。如果我们要查找矩阵中非缺失值的位置，则可以使用apply函数，在此我们可以使用哪个函数排除NA值。查看以下示例以了解其工作原理。

例1

M1<−matrix(sample(c(NA,0,1),25,replace=TRUE),ncol=5)
M1

输出结果

[,1] [,2] [,3] [,4] [,5]
[1,] NA 1 NA 0 0
[2,] 1 1 NA 0 1
[3,] 1 0 1 1 0
[4,] 0 NA 1 1 0
[5,] 0 NA 0 0 NA

示例

apply(M1,1,function(x) which(!is.na(x)))

输出结果

[[1]]
[1] 2 4 5
[[2]]
[1] 1 2 4 5
[[3]]
[1] 1 2 3 4 5
[[4]]
[1] 1 3 4 5
[[5]]
[1] 1 3 4

例2

M2<− matrix(sample(c(NA,5,10,15,25),49,replace=TRUE),nrow=7)
M2

输出结果

     [,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,]  NA   NA   15   NA   10   15   5
[2,]  5    5    15   15   NA   10   25
[3,]  NA   5    NA   10   25   10   10
[4,]  5    25   NA   NA   10   5    NA
[5,]  25   NA   15   5    15   10   5
[6,]  25   NA   10   NA   25   5    15
[7,]  10   5    25   NA   10   5    25

示例

apply(M2,1,function(x) which(!is.na(x)))

输出结果

[[1]]
[1] 3 5 6 7
[[2]]
[1] 1 2 3 4 6 7
[[3]]
[1] 2 4 5 6 7
[[4]]
[1] 1 2 5 6
[[5]]
[1] 1 3 4 5 6 7
[[6]]
[1] 1 3 5 6 7
[[7]]
[1] 1 2 3 5 6 7

例子3

M3<−matrix(sample(c(NA,0:9),100,replace=TRUE),nrow=10)
M3

输出结果

    [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]  1    0   2    2    2    0    4    5    9    4
[2,]  0    4   5    2    6    3    3    8    6    2
[3,]  8   NA   6    4    7    1    7    5    5    6
[4,] NA   4    7    4    5    4    NA   1    0    5
[5,]  7   4    3    1    1    0    5    1    7    7
[6,]  3   8    5    8    3    1    2    2    3    4
[7,]  5   4    3    NA   0    8    3    5    9    6
[8,]  7   7    7    6    1    0    7    NA   6    7
[9,]  9   5    3    2    4    2    3    4    3    8
[10,] 1   3    6    4    4    1    8    0    4    1

示例

apply(M3,1,function(x) which(!is.na(x)))

输出结果

[[1]]
[1] 1 2 3 4 5 6 7 8 9 10
[[2]]
[1] 1 2 3 4 5 6 7 8 9 10
[[3]]
[1] 1 3 4 5 6 7 8 9 10
[[4]]
[1] 2 3 4 5 6 8 9 10
[[5]]
[1] 1 2 3 4 5 6 7 8 9 10
[[6]]
[1] 1 2 3 4 5 6 7 8 9 10
[[7]]
[1] 1 2 3 5 6 7 8 9 10
[[8]]
[1] 1 2 3 4 5 6 7 9 10
[[9]]
[1] 1 2 3 4 5 6 7 8 9 10
[[10]]
[1] 1 2 3 4 5 6 7 8 9 10

例子4

M4<−matrix(sample(c(NA,rnorm(10,5,2)),36,replace=TRUE),nrow=6)
M4

输出结果

       [,1]      [,2]      [,3]    [,4]      [,5]     [,6]
[1,] 5.8658749 3.4589638  9.448970 4.0246447 5.0317765 3.4589638
[2,] 9.4489696 9.1581552  5.865875 3.8337310 5.9396619 5.9396619
[3,] 4.0246447 7.5142676  NA 9.4489696 0.9925749 5.0317765
[4,] 7.5142676 5.8658749  3.833731 0.9925749 0.9925749 7.5142676
[5,] 0.9925749 7.5142676  NA 9.1581552 9.4489696 NA
[6,] 5.0317765 0.9925749  3.833731 4.0246447 7.5142676 0.9925749

示例

apply(M4,1,function(x) which(!is.na(x)))

输出结果

[[1]]
[1] 1 2 3 4 5 6
[[2]]
[1] 1 2 3 4 5 6
[[3]]
[1] 1 2 4 5 6
[[4]]
[1] 1 2 3 4 5 6
[[5]]
[1] 1 2 4 5
[[6]]
[1] 1 2 3 4 5 6

范例5

M5<−matrix(sample(c(NA,rpois(10,5)),64,replace=TRUE),nrow=8)
M5

输出结果

[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
[1,] 10 0 7 5 3 10 10 10
[2,] 5 3 NA 5 5 5 5 5
[3,] 5 5 3 5 3 5 7 5
[4,] 3 10 5 10 NA NA 5 5
[5,] 7 7 7 5 7 10 8 7
[6,] 0 3 7 3 7 5 3 10
[7,] 0 NA 5 NA 7 NA 0 5
[8,] 5 10 8 7 3 NA 8 3

示例

apply(M5,1,function(x) which(!is.na(x)))

输出结果

[[1]]
[1] 1 2 3 4 5 6 7 8
[[2]]
[1] 1 2 4 5 6 7 8
[[3]]
[1] 1 2 3 4 5 6 7 8
[[4]]
[1] 1 2 3 4 7 8
[[5]]
[1] 1 2 3 4 5 6 7 8
[[6]]
[1] 1 2 3 4 5 6 7 8
[[7]]
[1] 1 3 5 7 8
[[8]]
[1] 1 2 3 4 5 7 8