R语言中如何快速为逗号分隔的单词列表批量添加双引号？

你可以选择以下任意一种方法快速完成转换，无需手动逐个添加引号： #

方法1：R环境内直接转换（无需离开R界面，最推荐） #

如果你已经写出了类似words = c(apple,banana,cat,...,dolphin)的未加引号代码，直接运行下方代码即可自动生成带引号的字符向量：

# 将c()内的内容替换为你自己的无引号单词列表
words <- as.character(quote(c(apple, banana, cat, dolphin)))[-1]

原理说明：quote()函数会捕获括号内的表达式不执行，转成字符向量后第一个元素为"c"，删除第一个元素后剩余内容就是已经加上双引号的单词字符列表，直接赋值即可使用。 #

方法2：读取逗号分隔文本批量转换 #

如果你已经把逗号分隔的单词列表单独复制到了剪贴板，可直接读取剪贴板内容完成转换：

• Windows系统操作代码：

# 先复制你的逗号分隔单词列表，再运行以下代码
raw_text <- readClipboard()
words <- trimws(strsplit(raw_text, ",")[[1]])

• Mac系统操作代码：

# 先复制你的逗号分隔单词列表，再运行以下代码
raw_text <- readLines(pipe("pbpaste"))
words <- trimws(strsplit(raw_text, ",")[[1]])

trimws()函数会自动去除单词前后的多余空格，避免生成带空格的异常字符。 #

方法3：编辑器正则批量替换 #

如果你习惯用编辑器功能处理，所有主流代码编辑器（RStudio、VS Code、Notepad++等）都支持正则替换功能：

1. 选中你要修改的无引号单词段
2. 开启正则替换模式，查找规则输入([^,]+)，替换规则输入"$1"
3. 执行替换即可一键为所有单词添加双引号

内容的提问来源于stack exchange，提问作者mathplzfun