R语言如何提取行名相似的行生成子矩阵？

问题核心原因 #

你之前提取结果返回向量是因为R默认在提取单行列的矩阵时会自动执行降维操作，把二维矩阵压缩为一维向量，只要关闭这个默认行为即可。

实现方法 #

1. 基础实现（结合grep匹配前缀+关闭降维） #

使用grep()配合正则匹配指定前缀的行名，同时添加drop = FALSE参数保留矩阵结构：

# 提取所有以unitBreaks为前缀的行，返回矩阵
unit_submatrix <- matrix1[grep(pattern = "^unitBreaks", x = rownames(matrix1)), , drop = FALSE]

参数说明：

• ^unitBreaks：正则表达式中^代表匹配字符串开头，确保仅匹配前缀为指定字符串的行名
• drop = FALSE：关闭R的自动降维默认行为，是返回矩阵而非向量的核心参数

2. 通用封装（方便批量提取不同前缀） #

可以封装为简单函数，降低重复代码：

# 封装提取函数
get_submatrix_by_prefix <- function(input_matrix, prefix_str) {
  target_rows <- grep(paste0("^", prefix_str), rownames(input_matrix))
  return(input_matrix[target_rows, , drop = FALSE])
}

# 调用示例
acts_submatrix <- get_submatrix_by_prefix(matrix1, "actsBreaks")
year_submatrix <- get_submatrix_by_prefix(matrix1, "yearBreaks")

结果验证 #

提取unitBreaks前缀的输出结果如下：

> unit_submatrix
            Value
unitBreaks0    16
unitBreaks1    17
unitBreaks2    18
unitBreaks3    19

内容的提问来源于stack exchange，提问作者PDiddyA