R语言替换TXT文件中重复$stim为文件名失败，求排查原因

核心错误点 #

1. 正则特殊字符未处理
   $在正则表达式中是特殊符号，表示“行尾”，你直接用"$stim"作为匹配字符串时，str_replace_all会按正则规则解析，根本匹配不到文本里的$stim字面内容。

2. 循环逻辑不符合需求
   你的wrong_words仅包含一个元素，循环只会执行一次，str_replace_all会把所有$stim替换成filenames[1]，无法实现“每个$stim对应列表中不同文件名”的需求。

修正后的代码 #

library(stringr)

# 示例文件名列表，请确保其长度与文本中$stim的出现次数一致
filenames <- c("df1.csv", "df2.csv")
text <- readLines("filepath")

# 定位所有包含$stim的行的索引
stim_line_indices <- which(str_detect(text, fixed("$stim")))

# 逐个替换第n个$stim为filenames中的第n个文件名
for (i in seq_along(stim_line_indices)) {
  text[stim_line_indices[i]] <- str_replace(
    text[stim_line_indices[i]], 
    fixed("$stim"), 
    filenames[i]
  )
}

# 将修改后的内容写入文件
writeLines(text, con="filepath")

关键说明 #

• 使用fixed("$stim")强制按字面匹配字符串，避免正则特殊字符的干扰，无需手动转义$。
• 先通过which(str_detect(...))找到所有$stim所在的行，再循环逐个替换，确保每个$stim对应filenames中顺序匹配的文件名。
• 请确认filenames的长度与文本中$stim的出现次数完全一致，否则会出现替换不完整或索引越界错误。

内容的提问来源于stack exchange，提问作者thefriendly_plague.doctor