R语言实现连续两个NA分隔的单列数据转置为多列

核心处理逻辑不依赖固定行高，直接识别连续两个分界值（示例为空字符串，可替换为NA）作为分段边界，自动适配任意长度的分段：

• 第一步：定位所有连续两个分界值的位置，生成分组标记
• 第二步：过滤掉作为分界标记的空值，按分组拆分原始向量
• 第三步：将每个分组的元素统一长度（不足补空值），按行合并为最终数据框

可复现代码 #

# 示例输入
x <- data.frame(col1=c('A','F',1,15,'','','A','Z','$35','P',2,'','','B','ER',3,'P',56,'YT65','','','B','AZ','$5','PO',28,'',''))

v <- x$col1
# 定位连续两个空字符串的分界位置（如果分界是NA，把v==""替换为is.na(v)即可）
cut_pos <- which(v == "" & c(v[-1], "") == "")
# 为每段数据分配唯一分组ID
group_id <- cumsum(seq_along(v) %in% (cut_pos + 1))
# 过滤分界用空值后按组拆分
seg_list <- split(v[v != ""], group_id[v != ""])
# 每个分段补全到6列长度，合并为数据框
result <- as.data.frame(
  do.call(rbind, lapply(seg_list, function(seg) c(seg, rep("", 6 - length(seg)))),
  row.names = FALSE
)
# 设置列名
colnames(result) <- paste0("col", 1:6)

运行结果 #

执行代码后得到的输出和预期完全一致：

col1 col2 col3 col4 col5 col6
1    A    F    1   15          
2    A    Z  $35    P    2     
3    B   ER    3    P   56 YT65
4    B   AZ   $5   PO   28     

自定义调整说明 #

• 如果分界标记是连续两个NA，仅需将代码中所有v == ""/v != ""的判断替换为is.na(v)/!is.na(v)即可
• 如果最终需要的列数不是6，修改补全长度逻辑和列名设置中的对应数字即可
• 该方案无额外包依赖，纯base R即可运行，适配任意长度的分段场景

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