R语言如何将tibble内分号分隔的单列按表头拆分为多列

针对200万行规模的分号分隔单列表格，推荐以下两种高效实现方案： #

方案1：tidyverse 简洁实现 #

适合对代码可读性要求高的场景：

library(tidyverse)

# 提取表头字段
col_names <- str_split(df$Value[1], ";")[[1]]

# 跳过表头行后拆分列
result <- df %>%
  slice(-1) %>% 
  separate_wider_delim(
    cols = Value,
    delim = ";",
    names = col_names
  )

方案2：data.table 高性能实现 #

200万行大数量场景下速度更快、内存占用更低：

library(data.table)

setDT(df)
# 提取表头字段
col_names <- tstrsplit(df$Value[1], ";")[[1]]

# 拆分后设置列名
result <- df[-1, tstrsplit(Value, ";")][, setnames(.SD, col_names)]

异常处理补充 #

如果存在部分行的分号数量和表头不匹配的情况，可添加参数兼容缺失值：

• tidyverse方案添加参数：too_few = "align_start", too_many = "merge"
• data.table方案添加参数：tstrsplit(Value, ";", fill = NA)

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