如何在R中将数据框的分隔字段拆分为多行（支持通用分隔符）

先构造示例数据框方便测试：

DF <- data.frame(
  col1 = c("ID1", "ID3"),
  col2 = c("ID2", "ID4"),
  col3 = c("apple, pear, banana", "pear, orange"),
  stringsAsFactors = FALSE
)

方法1：base R原生实现（无需额外包） #

利用strsplit拆分字符串，结合rep重复对应行，最后组合成新数据框：

# 按指定分隔符拆分col3
split_col3 <- strsplit(DF$col3, ", ")
# 生成拆分后的新数据框
DF1 <- data.frame(
  col1 = rep(DF$col1, sapply(split_col3, length)),
  col2 = rep(DF$col2, sapply(split_col3, length)),
  col3 = unlist(split_col3),
  stringsAsFactors = FALSE
)

如果分隔符不是, ，直接修改strsplit的第二个参数即可，比如换成";"或"|"。

方法2：tidyverse工具包（简洁易用） #

用tidyr的separate_rows函数，专门处理这类拆分列到多行的需求：

# 先安装并加载包（首次使用需安装）
# install.packages("tidyverse")
library(tidyverse)

# 拆分col3到多行，指定分隔符
DF1 <- DF %>%
  separate_rows(col3, sep = ", ")

这个方法最省心，自动帮你重复其他列的内容，sep参数支持任意通用分隔符。

方法3：data.table包（大数据量高效） #

如果数据量很大，用data.table的分组拆分效率更高：

# 先安装并加载包（首次使用需安装）
# install.packages("data.table")
library(data.table)

# 转换为data.table格式后拆分
setDT(DF)
DF1 <- DF[, .(col3 = strsplit(col3, ", ")[[1]]), by = .(col1, col2)]

通过by = .(col1, col2)分组，每组内拆分col3并展开成多行，同样可以修改strsplit的分隔符适配不同场景。

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