如何批量对22列CSV数据应用str_split_fixed函数？

嘿，完全懂你不想重复写22次代码的心情！其实用Base R或者tidyverse工具都能轻松搞定这个批量处理的需求，给你两个实用方案：

方案一：Base R 原生实现 #

不需要额外装其他包，用lapply遍历所有列，对每一列应用str_split_fixed，最后合并结果就行：

# 假设你的原始数据框名为a
# 遍历所有列，拆分每一列
split_list <- lapply(a, function(col) {
  str_split_fixed(col, ",", n = 12)
})

# 将拆分后的矩阵列表合并成完整数据框
result_df <- do.call(cbind, split_list)

# 给新列批量命名（比如原列col_1拆分成col_1_1到col_1_12）
new_colnames <- expand.grid(names(a), 1:12)
new_colnames <- paste(new_colnames$Var1, new_colnames$Var2, sep = "_")
colnames(result_df) <- new_colnames

这个方法的好处是轻量、依赖少，适合习惯Base R的用户。

方案二：tidyverse 简洁实现 #

如果你平时用dplyr和tidyr，这个写法更直观，代码也更紧凑：

library(dplyr)
library(stringr)
library(tidyr)

result_df <- a %>%
  # 对所有列执行拆分，转成带命名的tibble
  mutate(across(everything(), ~ str_split_fixed(., ",", n = 12) %>% 
                  as_tibble(.name_repair = ~ paste(cur_column(), 1:12, sep = "_")))) %>%
  # 把嵌套的列展开成单独的列
  unnest_wider(everything())

这里across(everything())会自动选中所有列，cur_column()能自动获取当前处理的原始列名，所以拆分后的列名会自动对应成原列名_1到原列名_12，不用手动命名，非常方便。

小提醒 #

如果有些单元格里的逗号分隔元素不足12个，str_split_fixed会自动用空字符串填充后面的位置，不会报错，这点可以放心~

内容的提问来源于stack exchange，提问作者e.matt