是否存在sprintf变体及R中向量多占位符替换的通用方法？

问题2：R中实现模板生成字符向量的通用方法 #

针对你想要的tq84函数效果（输入向量每个元素替换模板所有占位符，输出向量长度与输入一致），这里有两种实用的实现方式：

方法1：Base R 原生实现（无额外依赖）

不需要安装任何包，用sapply结合sprintf就能轻松实现：

tq84 <- function(template, vec) {
  # 统计模板中的格式占位符数量（匹配%+字母/数字的标准格式，比如%d、%s、%f）
  placeholder_count <- length(gregexpr("%[a-zA-Zd]", template)[[1]])
  # 遍历输入向量，每个元素重复后传入sprintf填充所有占位符
  sapply(vec, function(x) sprintf(template, rep(x, placeholder_count)))
}

# 测试你的示例
tq84('foo_%d, bar_%d, baz_%d', 1:2)
# 输出结果：
# [1] "foo_1, bar_1, baz_1" "foo_2, bar_2, baz_2"

这个方法适配大多数sprintf支持的占位符类型，完全依赖Base R，适合不想引入第三方包的场景。

方法2：用glue包实现更简洁的语法

如果你不介意安装第三方包，glue是处理字符串模板的绝佳工具，语法更直观，代码也更简洁：

# 先安装包（首次使用时）
# install.packages("glue")
library(glue)

tq84 <- function(template, vec) {
  # 将sprintf风格的占位符替换为glue的变量语法
  glue_template <- gsub("%d", "{x}", template)
  # 向量化渲染模板，自动匹配每个向量元素
  as.character(glue(glue_template, x = vec))
}

# 测试示例
tq84('foo_%d, bar_%d, baz_%d', 1:2)
# 输出结果：
# [1] "foo_1, bar_1, baz_1" "foo_2, bar_2, baz_2"

如果你的模板里有其他类型的占位符（比如字符串占位符%s），只需要调整gsub的匹配规则，比如改成gsub("%[a-zA-Zd]", "{x}", template)即可。

内容的提问来源于stack exchange，提问作者René Nyffenegger