如何为R语言数据框字符列中逗号分隔的数字添加单引号

现有包含字符列的数据框，列中存储逗号分隔的数字，需要给每个被逗号分隔的数字单独加上单引号，将如下格式的df1转换为df2结构：

var1 <- c("1,2,3","1,24,41")
df1 <- data.frame(var1)
df1
##      var1
## 1   1,2,3
## 2 1,24,41

var1 <- c("'1','2','3'","'1','24','41'")
df2 <- data.frame(var1)
df2
##            var1
## 1   '1','2','3'
## 2 '1','24','41'

核心处理逻辑和向量场景完全一致，共三步：

• 按逗号拆分每行的字符串，得到独立的数字片段
• 给每个拆分出的数字片段前后包裹单引号
• 把加完引号的片段用逗号重新拼接为完整字符串，赋值回原列

把上述逻辑套用到数据框列的逐行处理即可，以下提供两种常用实现：

基础R实现（无需安装额外包） #

# 直接处理var1列
df1$var1 <- sapply(
  strsplit(df1$var1, split = ","),
  function(x) paste0("'", x, "'", collapse = ",")
)

运行后df1的结构和预期的df2完全一致。

Tidyverse 实现 #

如果日常使用dplyr数据流处理，可以用以下更符合管道操作习惯的写法：

library(dplyr)
library(purrr)

df1 <- df1 %>%
  mutate(
    var1 = map_chr(
      strsplit(var1, ","),
      ~paste0("'", .x, "'", collapse = ",")
    )
  )

提示：如果实际场景需要包裹双引号而非单引号，只需要把代码中作为包裹符的"'"替换为'"'即可，整体逻辑无需调整。

内容的提问来源于stack exchange，提问作者marc.th