R中的嵌套粘贴语句

Question

这是其中之一"必须有更好的方法!" 的东西.我有一个嵌套的粘贴语句,我将在下面发布上下文.我需要打印一个声明,说" group x在以下的竞赛中击败以下组type y:group a, group b, ...group so and so"代码"部分"指的是由函数的其他方面确定的不同变量.我现在的方式有几种不同粘贴语句嵌套在一起,其中五个是准确的.关于如何使这个更少的任何想法......凌乱？这是原始代码:

paste(paste(paste(paste(un[j], "beat out the following groups:"), paste(un[t],collapse=", ")), "in"), n[i])

Answer 1

我会使用sprintf大部分内容:

un <- letters
paste(paste(paste(paste(un[1], "beat out the following groups:"), paste(un[2:10],collapse=", ")), "in"), un[11])

#...versus:
sprintf("%s beat out the following groups: %s in %s",un[1],paste(un[2:10],collapse = ", "),un[11])

在风格上,我甚至可能最终在两行中做到这一点,使其更具可读性:

grps <- paste(un[2:10], collapse = ", ")
sprintf("%s beat out the following groups: %s in %s",un[1],grps,un[11])