如何用R基于DataFrame行列名与值实现简易宏生成器

核心思路 #

你需要对DataFrame的每一行操作，将模板字符串中的{{列名}}占位符替换为对应行的列值，而非对列进行批量修改。across是列级操作工具，不适合这个场景，推荐使用行级处理的rowwise()+str_replace_all()或pmap()方案。

方案1：通用型行级替换（适配任意列数） #

该方案通过构建命名向量一次性替换所有占位符，适合列数不固定的场景：

library(tidyverse)

df <- tribble(
  ~title, ~name, ~age,
  "Mr", "Smith", 46,
  "Ms", "Jones", 26,
  "Ms", "Wiles", 20
)

# 定义模板字符串（建议重命名避免和内置str函数冲突）
str_template <- "
This has parameters {{title}} {{name}}
and more {{age}}
"

# 处理单行的替换函数
replace_params <- function(row_data) {
  # 构建替换规则：键为{{列名}}，值为对应列的内容
  replace_rules <- set_names(
    as.character(row_data),
    paste0("{{", names(row_data), "}}")
  )
  # 批量替换所有占位符
  str_replace_all(str_template, replace_rules)
}

# 应用到每行并生成结果列
df_processed <- df %>%
  rowwise() %>%
  mutate(output = replace_params(c_across(everything()))) %>%
  ungroup()

# 查看结果
print(df_processed$output)

运行后output列的内容示例：

[1] "\nThis has parameters Mr Smith\nand more 46\n"
[2] "\nThis has parameters Ms Jones\nand more 26\n"
[3] "\nThis has parameters Ms Wiles\nand more 20\n"

方案2：固定列数的精准替换 #

如果你的DataFrame列数固定，也可以用pmap()直接传递列参数，代码更直观：

# 针对固定列的替换函数
replace_params_pmap <- function(title, name, age) {
  str_template %>%
    str_replace("{{title}}", title) %>%
    str_replace("{{name}}", name) %>%
    str_replace("{{age}}", as.character(age))
}

# 生成结果列
df_processed <- df %>%
  mutate(output = pmap_chr(., replace_params_pmap))

你原代码的问题说明 #

1. 参数命名错误：R变量名不能包含连字符，name-of-column是无效命名，应改为下划线风格（如col_name）
2. 正则表达式错误：原函数中的\\{name-of-column\\}只会匹配字面字符串{name-of-column}，无法动态匹配列名对应的占位符
3. 工具选择错误：across是列级操作工具，不适合需要整合整行数据的行级替换场景

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