如何使用strsplit()将不规则格式数据转换为位置有序的数据框？

方法一：从已拆分的向量列表转换 #

如果你已经得到了拆分后的向量列表（即示例中的mydata），直接用do.call(rbind, ...)将列表转为矩阵，再转换为DataFrame并设置列名即可：

# 将向量列表转为DataFrame
mydf <- as.data.frame(do.call(rbind, mydata))
# 设置列名为p1到p10
colnames(mydf) <- paste0("p", 1:10)

# 输出结果
print(mydf)

方法二：直接处理原始字符串 #

无需分步拆分，直接对原始字符串做批量处理，一步得到目标DataFrame：

使用tidyverse工具链（更简洁）

library(tidyverse)

# 原始数据
raw_data <- "/0,2,5,6,2,5,0,0,0,0/0,0,8,1,4,,2,4,0,0/5,6,2,5,0,0,7,8,3,2"

mydf <- raw_data %>%
  str_split_1("/") %>%          # 按斜杠拆分各组
  discard(~ .x == "") %>%       # 过滤拆分产生的空字符串
  str_replace_all(",,", ",0") %>%# 将连续逗号（空值）替换为,0
  str_split(",") %>%            # 按逗号拆分每个组的元素
  do.call(rbind, .) %>%         # 转为矩阵
  as.data.frame() %>%           # 转为DataFrame
  setNames(paste0("p", 1:10))   # 设置列名

print(mydf)

使用基础R（无额外依赖）

# 原始数据
raw_data <- "/0,2,5,6,2,5,0,0,0,0/0,0,8,1,4,,2,4,0,0/5,6,2,5,0,0,7,8,3,2"

# 拆分各组并过滤空值
groups <- strsplit(raw_data, "/")[[1]]
groups <- groups[groups != ""]

# 处理每个组的空值并拆分元素
processed_groups <- lapply(groups, function(x) {
  x <- gsub(",,", ",0", x)
  strsplit(x, ",")[[1]]
})

# 转换为DataFrame并设置列名
mydf <- as.data.frame(do.call(rbind, processed_groups))
colnames(mydf) <- paste0("p", 1:10)

print(mydf)

两种方法最终都会得到你需要的DataFrame结构，列对应原始数据的位置，行对应每组10个数字。

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