如何在R中筛选满足特定行间隔匹配条件的数据行？

假设你的数据框df中唯一的列名为text（若实际列名不同，替换为对应名称即可），可按以下步骤实现需求：

1. 定位所有包含Run = 1-3位数字的行索引：

run_indices <- which(grepl("Run = \\d{1,3}", df$text))

2. 筛选出满足「索引+8不超过总行数」且对应第8行后包含目标字符串的有效索引：

valid_run_indices <- run_indices[
  run_indices + 8 <= nrow(df) & 
  grepl(".*Final Intermolecular Energy     =", df$text[run_indices + 8])
]

3. 提取最终符合条件的行：

result_df <- df[valid_run_indices, , drop = FALSE]

补充说明 #

• R中字符串内的正则转义符\需写成\\，因此\d要写为\\d。
• drop = FALSE用于确保结果保持数据框格式，而非转为向量。
• 若不确定列名，也可直接用列索引替代，比如把df$text换成df[[1]]。

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