r - paste0 把 "放在错误的地方

Question

我正在创建变量列。

myVars=paste0("var",rep(1:5))
myVars
paste0(myVars,"=rnorm(5)")

输出:

"var1=rnorm(5)" "var2=rnorm(5)" "var3=rnorm(5)" "var4=rnorm(5)"
"var5=rnorm(5)"

注意第二个引号应该在 var1 之后，如下所示。
我还想粘贴在想要的输出中看到的逗号。
那应该需要像 paste0(A,B,C) 这样的东西

想:

"var1"=rnorm(5), "var2"=rnorm(5), "var3"=rnorm(5), "var4"=rnorm(5),
"var5"=rnorm(5)

Answer 1

如果我们需要在 'myVars' 周围加上双引号，请使用 dQuote与 q = FALSE避免花哨的报价

out <- paste0(dQuote(myVars, q = FALSE), "=rnorm(5)")
cat(out, '\n')
#"var1"=rnorm(5) "var2"=rnorm(5) "var3"=rnorm(5) "var4"=rnorm(5) "var5"=rnorm(5) 

如果它应该是单个字符串

out1 <- paste(dQuote(myVars, q = FALSE), "=rnorm(5)", sep="", collapse=", ")
cat(out1, '\n')
#"var1"=rnorm(5), "var2"=rnorm(5), "var3"=rnorm(5), "var4"=rnorm(5), "var5"=rnorm(5)