Question

我有一个由有序向量行组成的矩阵：

v1 v2 v3 v4 v5 v6 v7 v8 v9 .... v45 v46 v47 v48
1  2  2  2  2  3  NA 3  3  ....  4   4   NA  NA
3  3  4  4  4  NA NA NA NA ....  5   NA  NA  NA
4  4  4  5  5  5  5  5  5  ....  NA  NA  NA  NA
...

我想在R中找到一种有效的方法，通过使用R的矩阵对具有有序向量（3,4）（即4之前的3）的子集记录进行如此

1  2  2  2  2  3  NA 3  3  ....  4   4   NA  NA
3  3  4  4  4  NA NA NA NA ....  5   NA  NA  NA

将被子集化。如果我对一个向量（1,2,3）进行了子集化（即在2之前和之后为3），我将要返回这一行：

1  2  2  2  2  3  NA 3  3  ....  4   4   NA  NA

Answer 1

也许你想要这个？

set.seed(1)
data <- matrix(sample(1:10, 100, replace=TRUE), ncol=5)

searchfor <- c(1,2,3)
data[apply(data, 1, function(x) all(searchfor %in% x)),]

输出

[,1] [,2] [,3] [,4] [,5]   # empty

另一个载体

searchfor <- c(7,8,9)
data[apply(data, 1, function(x) all(searchfor %in% x)),]

输出

     [,1] [,2] [,3] [,4] [,5]
[1,]    7    9    8    1    3
[2,]    5    7    1    9    8
[3,]    4    8    7    8    9

数据

      [,1] [,2] [,3] [,4] [,5]
 [1,]    3   10    9   10    5
 [2,]    4    3    7    3    8
 [3,]    6    7    8    5    4
 [4,]   10    2    6    4    4
 [5,]    3    3    6    7    8
 [6,]    9    4    8    3    3
 [7,]   10    1    1    5    8
 [8,]    7    4    5    8    2
 [9,]    7    9    8    1    3
[10,]    1    4    7    9    2
[11,]    3    5    5    4    3
[12,]    2    6    9    9    1
[13,]    7    5    5    4    7
[14,]    4    2    3    4    9
[15,]    8    9    1    5    8
[16,]    5    7    1    9    8
[17,]    8    8    4    9    5
[18,]   10    2    6    4    5
[19,]    4    8    7    8    9
[20,]    8    5    5   10    7

在矩阵中有效搜索有序向量

1 个答案: