r - 用逗号分隔的引号连接字符串

Question

我想写一个将多个字符串连接成一个字符串的函数，但是每个部分都用引号标记并用逗号分隔。

该函数基本上应该采用输入 "a" 和 "b" 并打印此 c('"a", "b"')，这将导致如下输出:

c('"a", "b"')

# [1] "\"a\", \"b\""

如何在函数体中创建这个 c('"a", "b"')？

Answer 1

你可以通过一个paste0()来实现:

x <- c("a", "b", "c")

paste0('"', x, '"', collapse = ", ")

# [1] "\"a\", \"b\", \"c\""

或sprintf() + toString():

toString(sprintf('"%s"', x))
# [1] "\"a\", \"b\", \"c\""