如何在R语言中打印包含指定向量元素的矩阵行？

首先先把你的数据在R中还原：

# 创建矩阵
mat <- matrix(c(4,5,6,7,8,
                1,2,3,4,5,
                3,2,1,6,7),
              nrow = 3, byrow = TRUE,
              dimnames = list(c("f", "g", "h"), c("a", "b", "c", "d", "e")))
# 创建目标向量
v <- c(5,4,8,6,0)

下面提供几种可行的方法：

方法1：Base R 原生实现 #

用apply逐行检查该行是否有元素存在于向量v中，返回逻辑值后筛选矩阵行：

# 筛选符合条件的行
result <- mat[apply(mat, 1, function(row) any(row %in% v)), ]
# 打印结果
print(result)

这里any(row %in% v)会判断当前行是否有至少一个元素在v里，apply(1, ...)表示按行处理。

方法2：使用dplyr包的filter函数 #

如果你习惯用tidyverse工具，可以先把矩阵转为数据框，再用filter结合if_any来筛选：

library(dplyr)

# 矩阵转数据框并保留行名
df <- as.data.frame(mat) %>% mutate(row_name = rownames(mat)) %>% relocate(row_name)

# 筛选所有列中存在v内元素的行
result_df <- df %>% filter(if_any(everything(), ~ .x %in% v))
# 打印结果
print(result_df)

if_any(everything(), ~ .x %in% v)会检查每一行的任意列是否有元素在v中，符合条件的行就会被保留。

关于lapply/grep的说明 #

lapply可以用来逐列处理，但用apply按行处理更直接；grep主要用于字符串匹配，你的数据是数值型，用%in%比grep更合适，不需要用grep处理这类数值匹配场景。

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