如何在长R脚本指定文本的所有出现位置上方批量插入代码行

方法1：用RStudio/主流文本编辑器的正则替换（最快，适合单文件处理） #

绝大多数支持正则查找替换的编辑器（RStudio、VS Code、Sublime Text等）都可以一键完成操作，以RStudio为例：

• 打开目标R脚本，按下Ctrl+F（Windows系统）/Cmd+F（Mac系统）调出查找替换面板，勾选正则表达式选项
• 「查找」输入框填入：(df00\$StartDate)
• 「替换」输入框填入：df00$MealPlan <- sub('\n.*', '', output3$Your choices)\n\1
• 点击「全部替换」即可完成所有匹配位置的批量插入

原理说明：(df00\$StartDate)是正则捕获组，会匹配所有目标文本；替换内容里的\n代表换行，\1会原样输出捕获到的原目标文本，相当于在每个目标文本的上方插入你需要的代码行。

方法2：用R代码批量处理脚本（适合多文件/无编辑器场景） #

你也可以直接运行R代码处理脚本文件，避免手动操作：

# 替换为你本地的原脚本路径
original_path <- "your_script.R"
# 替换为输出的新脚本路径（建议不要直接覆盖原文件，确认无误后再替换）
output_path <- "processed_script.R"

# 读取原脚本所有行
script_lines <- readLines(original_path, warn = FALSE)
# 匹配所有df00$StartDate所在的行号
match_pos <- which(grepl("df00\\$StartDate", script_lines))
# 倒序插入避免行号偏移
for (pos in rev(match_pos)) {
  insert_line <- "df00$`MealPlan` <- sub('\\n.*', '', output3$`Your choices`)"
  script_lines <- append(script_lines, insert_line, after = pos - 1)
}
# 写入处理后的脚本
writeLines(script_lines, output_path)

注意：操作前务必备份原脚本，避免匹配规则偏差导致内容错误。

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