如何在R中平行拆分多列对应元素并保留其余列数据？

我明白你遇到的困扰了——使用tidyverse的separate_rows处理多列时，会默认生成笛卡尔积，完全不符合你需要的平行拆分要求（Col1的第n个元素必须对应Col2的第n个元素），同时还要适配数据中显式的""空字符串（无法用NA/Null检测）。下面是精准解决这个问题的方案：

解决方案思路 #

核心思路是先将需要拆分的列转换为列表列（每个单元格存储拆分后的元素向量），再使用unnest_longer按位置同时展开这些列表列，这样就能保证对应位置的元素一一匹配，同时自动复制Keep1、Keep2这类附属列的数据。

具体实现代码 #

首先加载tidyverse包，然后构造你提供的示例数据，再执行拆分操作：

library(tidyverse)

# 构造符合你需求的示例数据框
df <- tibble(
  Col1 = c('"";2017-01-01;2016-09-17', '2018-01-01;"";2012-09-17', '2015-04-11;2016-08-12', '2017-01-01'),
  Col2 = c('201-101;201-102;201-103', '"";201-102;203-640', '301-190;302-801', '401-031'),
  Keep1 = c('John', 'Tom', 'Mary', 'Dan'),
  Keep2 = c('Apple', 'Orange', 'Banana', 'Beer')
)

# 执行平行拆分操作
df2 <- df %>%
  # 将Col1和Col2按";"拆分为列表列，保留原有的""空字符串
  mutate(
    Col1 = str_split(Col1, ";"),
    Col2 = str_split(Col2, ";")
  ) %>%
  # 按位置同时展开Col1和Col2，indices_to=NULL避免生成索引列
  unnest_longer(c(Col1, Col2), indices_to = NULL)

# 查看最终结果
print(df2)

代码解释 #

1. str_split转换为列表列：这个函数会严格按照;拆分单元格内容，完全保留原始的""空字符串，不需要额外的检测逻辑。
2. unnest_longer平行展开：当你传入多个列表列给unnest_longer时，它会按元素的位置一一对应展开，而不是生成笛卡尔积——这正是你需要的平行拆分效果。indices_to=NULL参数可以避免生成多余的索引列，让结果更简洁。

验证结果 #

运行上述代码后，得到的df2完全匹配你给出的目标表格：

# A tibble: 9 × 4
  Col1        Col2    Keep1 Keep2 
  <chr>       <chr>   <chr> <chr> 
1 ""          201-101 John  Apple 
2 2017-01-01  201-102 John  Apple 
3 2016-09-17  201-103 John  Apple 
4 2018-01-01  ""      Tom   Orange
5 ""          201-102 Tom   Orange
6 2012-09-17  203-640 Tom   Orange
7 2015-04-11  301-190 Mary  Banana
8 2016-08-12  302-801 Mary  Banana
9 2017-01-01  401-031 Dan   Beer  

如果后续有更多需要平行拆分的列，只需要在mutate中添加对应的str_split转换，再把列名加入unnest_longer的参数列表即可，只要所有拆分列的元素数量一致，就能保证完美匹配。

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