如何将数据框中不等长逗号分隔字符串拆分为多行？R语言求助

错误原因 #

separate_rows 默认要求同一行内需要拆分的所有列，拆分后的元素数量必须完全一致。你的报错提示"Incompatible lengths: 3, 2"，说明数据中存在某一行的value1和value2拆分后的元素个数不匹配。fill参数仅用于处理不同行之间的长度差异，无法解决同一行内列之间的长度不兼容问题。

解决方案 #

情况1：同一行的value1和value2拆分后长度完全对应 #

如果你的实际数据和给出的示例数据一致（每行的value1和value2逗号分隔元素数量相同），只需确保代码正确，即可用separate_rows直接拆分：

library(dplyr)
library(tidyr)

# 原始数据
names <- c("Inner", "Outer", "Median")
value1 <- c("1.3,1.9,2.8,1.0", "0.1,0.35,1.93,9.31,7.19,3.29,6.70", "0.12,8.32,9.10,11.10")
value2 <- c("56.9,60.1,1.0,9.8", "93.53,0.87,0.65,0.98,8.91,11.12,1.93", "3.10,1.85,2.30,10.19")
df <- data.frame(names, value1, value2)

# 拆分并转换为数值类型
df %>%
  separate_rows(value1, value2, convert = TRUE)

运行后会得到你期望的结果（示例中Median行多出来的9.19/1.38行属于笔误，原始数据无对应来源）。

情况2：存在同一行的value1和value2拆分后长度不一致的情况 #

如果数据中确实有行的两个列拆分后长度不同，需要先将列转换为列表，补全较短列的长度（用NA填充），再拆分：

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

# 1. 将逗号分隔字符串拆分为列表列
df_processed <- df %>%
  mutate(
    value1 = strsplit(value1, ","),
    value2 = strsplit(value2, ",")
  )

# 2. 按每行最长的列表长度补全较短列，填充NA
df_processed <- df_processed %>%
  rowwise() %>%
  mutate(
    max_length = max(length(value1), length(value2)),
    value1 = c(value1, rep(NA, max_length - length(value1))),
    value2 = c(value2, rep(NA, max_length - length(value2)))
  ) %>%
  ungroup()

# 3. 拆分为多行并转换数值类型
df_final <- df_processed %>%
  unnest(c(value1, value2)) %>%
  mutate(across(c(value1, value2), as.numeric)) %>%
  select(-max_length)

print(df_final)

这样处理后，即使某行的value1和value2元素数量不同，也能顺利拆分为多行，长度不足的位置会填充NA。

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