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

Question

如何将矩阵子集为一列，维护矩阵数据类型，维护行/列名称？当我将矩阵子集为一列时，结果是类数值的，而不是矩阵(即我的矩阵[，5]到第五列的子集)。是否有一种简洁的方法可以将单个列子集、维护矩阵格式和维护行/列名称，而不执行以下复杂操作：matrix( myMatrix[ , 5 ] , dimnames = list( rownames( myMatrix ) , colnames( myMatrix )[ 5 ] )r

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

Answer 2

为了给出一个基于统计的例子，使用Cooks的D距离，然后根据一个截断值(例如0.1)选择值，它将在相对数据集中得到具有各自行数的炊具D值。cooksd<-as.data.frame(cooks.distance(ft1)) cooksD_outliers<-cooksd[cooksd>0.1,drop=FALSE,]