仅当矩阵包含NA和Inf值时，才如何取R中具有有限值的矩阵子集？
如果我们有一个包含NA或Inf值的矩阵，而我们想采用有限值的那个矩阵的子集，那么只有不包含NA或Inf值的行才是输出。我们可以通过使用rowSums和带有求反运算符！的is.finite函数在R中执行此操作。
示例
set.seed(999) M1<-matrix(sample(c(1:10,NaN,Inf),25,replace=TRUE),ncol=5) M1
输出结果
[,1] [,2] [,3] [,4] [,5] [1,] 5 2 4 10 NaN [2,] 7 8 7 2 8 [3,] 2 1 1 10 7 [4,] NaN 5 Inf 2 5 [5,] 10 8 2 1 10
示例
Finite_M1<-M1[!rowSums(!is.finite(M1)),] Finite_M1
输出结果
[,1] [,2] [,3] [,4] [,5] [1,] 7 6 7 1 9 [2,] 9 3 6 5 5 [3,] 1 7 3 3 7
示例
M2<-matrix(sample(c(0:25,NaN,Inf),64,replace=TRUE),ncol=8) M2
输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [1,] 7 13 Inf 3 3 3 8 Inf [2,] 9 9 12 25 20 5 18 9 [3,] Inf 10 13 20 19 5 8 1 [4,] 0 9 22 17 24 2 1 15 [5,] 22 15 1 21 16 17 14 Inf [6,] 12 9 Inf 10 NaN 19 22 20 [7,] 16 21 9 16 10 18 6 21 [8,] 21 NaN 16 18 25 11 25 20
示例
Finite_M2<-M2[!rowSums(!is.finite(M2)),] Finite_M2
输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [1,] 4 22 23 1 24 16 19 7 [2,] 24 15 7 12 1 11 6 24 [3,] 25 10 25 24 12 18 22 18 [4,] 23 0 3 21 11 8 4 14
示例
M3<-matrix(sample(c(0:10,NaN,Inf),36,replace=TRUE),ncol=6) M3
输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [1,] 5 0 8 6 2 7 [2,] 3 7 4 8 8 1 [3,] 1 0 2 6 9 1 [4,] 6 4 2 0 7 6 [5,] 8 3 2 3 6 0 [6,] 6 2 1 0 7 6
示例
Finite_M3<-M3[!rowSums(!is.finite(M3)),] Finite_M3
输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [1,] 7 5 4 7 9 8 [2,] 5 9 7 8 9 8
示例
M4<-matrix(sample(c(51:100,NaN,Inf),100,replace=TRUE),ncol=10) M4
输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [1,] 66 71 69 81 64 63 90 55 70 92 [2,] 75 72 72 92 55 96 95 79 61 70 [3,] 84 76 89 73 84 86 85 83 72 83 [4,] 65 85 54 97 71 91 65 76 51 72 [5,] 76 66 61 61 71 58 Inf 85 73 84 [6,] 87 62 69 81 65 95 93 62 NaN 51 [7,] 83 68 81 86 89 80 Inf 93 92 63 [8,] 66 60 67 56 62 62 55 60 64 69 [9,] 60 83 80 70 88 72 69 Inf 96 55 [10,] 56 74 69 66 78 94 62 79 77 59
示例
Finite_M4<-M4[!rowSums(!is.finite(M4)),] Finite_M4
输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [1,] 93 85 56 76 60 100 79 92 85 57 [2,] 100 100 59 93 60 86 100 64 98 60 [3,] 88 75 98 77 75 56 82 52 69 67 [4,] 59 51 94 94 78 100 86 75 51 59 [5,] 100 90 65 62 82 54 99 63 70 76
示例
M5<-matrix(sample(c(101:125,NaN,Inf),25,replace=TRUE),ncol=5) M5
输出结果
[,1] [,2] [,3] [,4] [,5] [1,] 114 117 124 125 121 [2,] 117 114 111 116 107 [3,] 117 117 107 116 115 [4,] 122 114 108 121 113 [5,] 121 103 106 Inf 106
示例
Finite_M5<-M5[!rowSums(!is.finite(M5)),] Finite_M5
输出结果
[,1] [,2] [,3] [,4] [,5] [1,] 110 119 117 123 125 [2,] 102 120 117 112 111 [3,] 108 124 125 103 123
示例
M6<-matrix(sample(c(1001:1009,NaN,Inf),36,replace=TRUE),ncol=6) M6
输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [1,] 1002 1008 1005 1005 NaN 1008 [2,] 1003 1007 1007 1004 1009 1002 [3,] 1008 1003 1009 1006 Inf Inf [4,] 1007 1005 1005 1004 1004 1004 [5,] NaN 1002 1004 1003 1001 1008 [6,] 1009 1006 1005 1007 1008 1007
示例
Finite_M6<-M6[!rowSums(!is.finite(M6)),] Finite_M6
输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [1,] 1009 1007 1002 1007 1002 1009 [2,] 1004 1003 1004 1006 1001 1006
示例
M7<-matrix(sample(c(91:99,NaN,Inf),64,replace=TRUE),ncol=8) M7
输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [1,] 91 95 98 96 99 NaN 94 96 [2,] 93 Inf 94 98 NaN NaN 97 Inf [3,] 93 97 97 94 94 93 NaN 92 [4,] 96 92 Inf 92 93 98 94 98 [5,] 93 97 95 92 NaN 91 93 99 [6,] 95 96 91 99 97 99 97 97 [7,] 99 96 95 91 96 93 95 96 [8,] 93 98 91 92 91 Inf 96 92
示例
Finite_M7<-M7[!rowSums(!is.finite(M7)),] Finite_M7
输出结果
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [1,] 95 99 98 98 92 93 97 92 [2,] 94 99 98 98 99 97 92 96