如何在r中打印可变数量的参数?

here 和 here .

但这些似乎不能回答以下问题:

vec <- c("a","b","c","d")
s<-do.call(sprintf, c(list("%s %s"), vec))

doc 他说:“。。。如果可能的话,参数(包括fmt)被循环使用一整次,直到最长的长度为止,然后格式化是并行进行的……”

下面的代码显示这种情况不会发生:

> vec <- c("a","b","c","d")
> s<-do.call(sprintf, c(list("%s %s"), vec))
> print(s)
[1] "a b"
> v1 <- c("foo", "bar", "baz","foo", "bar", "baz")
> base_string = "%s, %s, %s"
> s<-do.call(sprintf, c(fmt = base_string, as.list(v1)))
> print(s)
[1] "foo, bar, baz"
> 

如何让它打印出所有的值?

编辑:根据@mt1022,我看错了文件。他建议:sprintf(paste0(v1,collapse='')可以工作。

我真正想做的是:

> s<-NA
> v<-c(1,"2",pi,2,"foo",2*pi)
> s<-do.call(sprintf, c(v, list(fmt=paste(rep("%d %s %f", length(v)/3), collapse=" "))))
Error in (function (fmt, ...)  : 
  invalid format '%d'; use format %s for character objects
> print(s)
[1] NA
>

答案(感谢@mt1022)是使用列表而不是向量:

v<-list(1,"2",pi,2,"foo",2*pi)
s<-do.call(sprintf, c(v, list(fmt=paste(rep("%d %s %f", length(v)/3), collapse=" "))))