如何将矩阵子集化为一列，维护矩阵数据类型，维护行/列名称？

Question

当我将矩阵子集到单列时，结果是数字类，而不是矩阵（即 myMatrix[ , 5 ] 子集到第五列）。是否有一种紧凑的方法来子集为单列，维护矩阵格式，并维护行/列名称，而不需要做一些复杂的事情，例如：

matrix( myMatrix[ , 5 ] , dimnames = list( rownames( myMatrix ) , colnames( myMatrix )[ 5 ] )

Answer 1

使用 [ 的 drop=FALSE 参数。

m <- matrix(1:10,5,2)
rownames(m) <- 1:5
colnames(m) <- 1:2
m[,1]             # vector
m[,1,drop=FALSE]  # matrix