用相同的值替换Sprintf中的多个变量

下面是一个实际的sprintf()解决方案:

a <- "tree"
sprintf("The %1$s is large but %1$s is small. %1$s", a)
[1] "The tree is large but tree is small. tree"

官方sprintf()文档中有更多示例。

1) 是的。呼叫 使用 do.call 这个 a 参数可以使用 rep 。未使用包。

a <- "tree"
s <- "The %s is large but %s is small. %s"

k <- length(gregexpr("%s", s)[[1]])
do.call("sprintf", as.list(c(s, rep(a, k))))
## [1] "The tree is large but tree is small. tree"

2) gsub公司 评论中已经提到了这一点,但 gsub 可以使用。同样,没有使用包。

gsub("%s", a, s, fixed = TRUE)
## [1] "The tree is large but tree is small. tree"

3) gsubfn gsubfn包支持准perl风格的字符串插值:

library(gsubfn)

a <- "tree"
s2 <- "The $a is large but $a is small. $a"
fn$c(s2)
## [1] "The tree is large but tree is small. tree"

此外,反勾号还可以用来封装在中求值和替换的整个R表达式。

这可以用于任何函数,而不仅仅是 c 导致代码非常紧凑。例如,假设我们要计算 s 之后 替代。然后可以这样做:

fn$nchar(s2)
## [1] 38

4) $n格式符号 在里面 sprintf 符号 %n$ 引用以下第n个参数 fmt :

a <- "tree"
s <- "The %1$s is large but %1$s is small. %1$s"
sprintf(s, a)
## [1] "The tree is large but tree is small. tree"

1) 胶 我们可以使用 glue 。未使用包,除非 胶

glue::glue("The {s} is large but {s} is small. {s}", s = a)
#The tree is large but tree is small. tree

2. ) 语法 语法类似于python中的f-string方法

a = "tree"
print(f"The {a} is large but {a} is small. {a}")
#The tree is large but tree is small. tree

这与 format 方法,但更具可读性

print("The {s} is large but {s} is small. {s}".format(s=a))
#The tree is large but tree is small. tree