如何在R语言中用另一文本文件的值替换目标文本的参数占位符

整体实现逻辑为：分别读取待替换的原始文件和参数映射文件，构建参数到取值的映射关系，遍历原始文件所有元素完成匹配替换，最后导出结果即可，该方法支持任意数量的参数替换，无需手动指定参数名，映射文件新增参数可自动适配。

1. 读取数据 #

默认两个文件均为空白符分隔（制表符、多空格均可），读取时保留字符格式避免自动转换问题：

# 读取待替换的原始文件
raw_data <- read.table(
  "your_raw_file.txt", 
  header = FALSE, 
  sep = "", 
  stringsAsFactors = FALSE, 
  check.names = FALSE
)
# 读取参数映射文件
map_data <- read.table(
  "your_map_file.txt", 
  header = TRUE, 
  sep = "", 
  stringsAsFactors = FALSE, 
  check.names = FALSE
)

将代码中your_raw_file.txt替换为原始数据的本地文件路径，your_map_file.txt替换为参数映射文件的本地路径。

2. 构建替换映射向量 #

将参数名作为向量名，对应取值作为向量值，方便后续批量匹配：

replace_map <- unlist(map_data[1, ])

3. 批量替换参数 #

遍历原始数据的每个元素，匹配到参数则替换为对应取值，未匹配则保留原值：

# 执行全量替换
replaced_data <- as.data.frame(
  lapply(raw_data, function(col) {
    ifelse(col %in% names(replace_map), replace_map[col], col)
  }), 
  stringsAsFactors = FALSE
)

# 可选操作：如果需要将所有值转换为数值格式
replaced_data <- as.data.frame(lapply(replaced_data, as.numeric))

4. 导出结果文件 #

write.table(
  replaced_data, 
  "output_file.txt", 
  sep = "\t", 
  row.names = FALSE, 
  col.names = FALSE, 
  quote = FALSE
)

导出的output_file.txt即为参数替换完成的文件。

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