R语言如何筛选数据框中列值以指定数值向量内数字开头的行

首先给出和场景完全一致的可复现测试数据构造代码：

# 构造测试数据框
df <- data.frame(
  Comment = c("This comment", "That comment", "Another comment", 
              "Please comment", "More comments", "Many comments", "Comment again"),
  Comment.Id = c("34_1_1_1", "24", "54_1_1", "234", "13_1_1", "12", "119_1_1"),
  stringsAsFactors = FALSE
)
# 待匹配的前缀数字向量
num <- c(34, 54, 234, 13, 119)

方法1：base R 实现（无需安装第三方包） #

核心思路是把所有待匹配的前缀数字拼接成正则匹配规则，通过grepl函数逐行判断Comment.Id是否符合前缀要求，直接完成行筛选。
代码里特意加了边界判断，避免短前缀误匹配更长的开头数字（比如不会把12误判为以1开头，也不会把345误判为以34开头），完全匹配题目中的筛选逻辑：

# 生成正则规则：^锚定字符串开头，(?:_|$)表示前缀数字后必须接下划线或者直接到字符串末尾
match_reg <- paste0("^(", paste(num, collapse = "|"), ")(?:_|$)")
# 执行筛选
result <- df[grepl(match_reg, df$Comment.Id), ]

运行后输出结果和预期完全一致：

> print(result)
           Comment Comment.Id
1    This comment   34_1_1_1
3 Another comment     54_1_1
4  Please comment        234
5   More comments     13_1_1
7   Comment again    119_1_1

方法2：dplyr 实现（适配tidyverse工作流） #

如果日常使用tidyverse生态的工具做数据处理，可以直接用filter函数实现，逻辑和base R版本一致：

library(dplyr)

result <- df %>% 
  filter(grepl(match_reg, Comment.Id))

补充说明：如果实际场景不需要严格的数字段边界，只要字符串开头的字符和目标数字串一致就算匹配（比如345_1也算以34开头），只需要把正则生成部分改成match_reg <- paste0("^(", paste(num, collapse = "|"), ")")即可。

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