将索引后返回的矩阵保留为向量

Question

我遵循了一个关于 R 语言的教程 https://www.datamentor.io/r-programming/matrix/，关于如何在索引矩阵而不是向量后保留返回的矩阵。但是，它不起作用，返回矩阵的类仍然是一个向量

我尝试使用一个逗号，然后使用两个逗号，就像教程中显示的那样。

[1] 3 6 9
> class(x[x%%3==0])
[1] "integer"
> x[x%%3==0, drop=FALSE]
[1] 3 6 9
> class(x[x%%3==0, drop=FALSE])
[1] "integer"
> x[x%%3==0,, drop=FALSE]
Error in x[x%%3 == 0, , drop = FALSE] : 
  (subscript) logical subscript too long
> x[x%%3==0,,.drop=FALSE]
Error in x[x%%3 == 0, , .drop = FALSE] : incorrect number of dimensions
> x[x%%3==0,,drop=FALSE]
Error in x[x%%3 == 0, , drop = FALSE] : 
  (subscript) logical subscript too long
> class(x[x%%3==0, drop=FALSE])
[1] "integer"

类仍然是整数，而不是矩阵，这是 drop=FALSE 应该做的

Answer 1

的输出

x %% 3==0
#     A     B     C
#X FALSE FALSE FALSE
#Y FALSE FALSE FALSE
#Z  TRUE  TRUE  TRUE

是一个逻辑矩阵

使用逻辑矩阵对初始矩阵进行子集化，根据TRUE的位置给出元素

which(x%%3 == 0)
#[1] 3 6 9

这些与我们从提取中获得的 matrix 中的值相同，这不会区分任何行，例如

x > 3
#     A    B    C
#X FALSE TRUE TRUE
#Y FALSE TRUE TRUE
#Z FALSE TRUE TRUE

x[x > 3]
#[1] 4 5 6 7 8 9

为了这样提取行，我们可能需要获取一个逻辑向量。一种选择是rowSums 并与列数进行比较

x[rowSums(x %%3 == 0) == ncol(x),, drop = FALSE]
#  A B C
#Z 3 6 9

数据

x <- matrix(1:9, nrow = 3, dimnames = list(c("X","Y","Z"), c("A","B","C")))