R语言如何按条件拆分dataframe列并生成匹配的多行数据

实现方案 #

这里提供两种更简洁的实现方式，不需要手动处理行列对齐逻辑：

1. tidyverse 声明式实现（可读性高、易扩展）

全程使用tidyverse内置函数完成转换，逻辑清晰，适配更多场景：

library(tidyverse)

# 原始数据
separate_on_condition <- data.frame(first = 'a3,b1,c2', second = '1,2,3,4,5,6')

result <- separate_on_condition %>%
  # 拆分first列的逗号分隔值为独立行
  separate_longer_delim(first, delim = ",") %>%
  # 提取每个元素的前缀字母和重复次数
  extract(first, into = c("first", "repeat_n"), regex = "(^[a-zA-Z])(\\d+$)", convert = TRUE) %>%
  # 按重复次数生成对应行数
  uncount(repeat_n) %>%
  # 拆分second列的逗号分隔值为独立行，和已生成的行自动对齐
  separate_longer_delim(second, delim = ",") %>%
  as_tibble()

运行后输出结果和要求完全一致。

2. 基础包轻量实现（无额外依赖）

如果不想引入第三方包，可以用基础包函数实现，代码也比手动写rep()+separate_rows()更简洁：

# 原始数据
separate_on_condition <- data.frame(first = 'a3,b1,c2', second = '1,2,3,4,5,6')

# 拆分处理first列
first_items <- strsplit(separate_on_condition$first, ",")[[1]]
prefix <- substr(first_items, 1, 1)
count <- as.integer(substr(first_items, 2, 2))

# 拆分处理second列
second_val <- strsplit(separate_on_condition$second, ",")[[1]]

# 合并生成结果
result <- data.frame(
  first = rep(prefix, count),
  second = second_val
) |> as_tibble()

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