嘿，我明白你的问题啦——你用glue生成SQL的IN子句时，结果把所有ID都塞进了一对单引号里，而不是每个ID单独带引号对吧？这是因为直接用paste(id, collapse=', ')只是把元素用逗号连起来，但没给每个元素单独加引号。

给你几个简单好用的解决办法：

方法1：用shQuote给每个元素加引号（推荐，处理特殊字符更安全） #

shQuote能自动给字符串包裹单引号，要是ID里包含特殊字符（比如单引号），它还会自动转义，避免出现SQL语法错误：

id <- c('22~1', '85L3~1')
id_str <- glue("id IN ({paste(shQuote(id, type = 'sh'), collapse = ', ')})")

运行后就能得到你想要的结果：id IN ('22~1', '85L3~1')

方法2：全程用glue生态（glue+glue_collapse） #

如果你想全程用glue的语法风格，可以先给每个ID加上引号，再用glue_collapse合并成符合要求的格式：

id <- c('22~1', '85L3~1')
quoted_ids <- glue("'{id}'") # 每个ID自动被单引号包裹
id_str <- glue("id IN ({glue_collapse(quoted_ids, sep = ', ')})")

方法3：基础R函数组合（sprintf+paste0） #

要是你更习惯用基础R的函数，这个组合也能轻松搞定：

id <- c('22~1', '85L3~1')
id_str <- sprintf("id IN (%s)", paste0("'", id, "'", collapse = ", "))

这三种方法都能生成正确格式的字符串，你可以根据自己的使用习惯选择～

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