给字符串添加引号

string <- function(...) {
  dots <- as.list(substitute(...))
  vapply(dots,as.character,FUN.VALUE = character(1))[-1]
}

string(c(a,b,c))

> string(c(a,b,c))
[1] "a" "b" "c"