R语言：如何在sprintf()中重复使用有限参数填充占位符？

你可以通过动态生成重复的参数列表，结合do.call来实现自动循环用a、b填充所有%s占位符，不用手动重复写参数。

实现代码（base R版本） #

f <- function(a, b, string) {
  # 统计格式字符串中%s的数量
  placeholder_num <- length(gregexpr("%s", string)[[1]])
  # 生成循环重复的参数向量，长度匹配占位符数量
  repeat_args <- rep(c(a, b), length.out = placeholder_num)
  # 用do.call传递参数给sprintf
  do.call(sprintf, c(list(string), repeat_args))
}

带stringr的简化版本（更直观） #

如果你已经在用stringr包，统计占位符数量的代码可以更简洁：

library(stringr)

f <- function(a, b, string) {
  placeholder_num <- str_count(string, "%s")
  repeat_args <- rep(c(a, b), length.out = placeholder_num)
  do.call(sprintf, c(list(string), repeat_args))
}

测试验证 #

调用函数测试多占位符场景：

f("a_val", "b_val", "1:%s ; 2:%s ; 3:%s ; 4:%s")
# 输出："1:a_val ; 2:b_val ; 3:a_val ; 4:b_val"

f("X", "Y", "A:%s B:%s C:%s")
# 输出："A:X B:Y C:X"

原理说明 #

1. 先统计格式字符串里%s的总数，确保生成的参数数量和占位符完全匹配；
2. 用rep(c(a,b), length.out = ...)生成循环重复的参数序列，自动按a→b→a→b的顺序填充；
3. do.call能把参数列表传递给sprintf，替代手动逐个输入重复参数的繁琐操作。

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