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

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