如何用R将data.frame的exonStarts与exonEnds元素配对生成新数据集？

方法一：使用tidyverse工具链（推荐） #

用tidyr::separate_rows()可以直接拆分逗号分隔的列并自动展开行，完美匹配你的需求，代码简洁高效：

library(tidyverse)

# 假设原始数据框为df
df2 <- df %>%
  separate_rows(exonStarts, exonEnds, sep = ",") %>%
  # 将拆分后的字符转为数值（按需选择）
  mutate(across(c(exonStarts, exonEnds), as.numeric)) %>%
  select(chr, exonStarts, exonEnds)

说明 #

• separate_rows()会自动将每行中逗号分隔的exonStarts和exonEnds元素逐一拆分，对应展开成多行，保证每一行的起止位置配对，同时保留chr列信息。
• 如果原始列已经是数值型（而非字符串），可以跳过mutate步骤。

方法二：基于strsplit + map2的批量实现 #

沿用你尝试的思路，结合purrr批量处理函数完成：

library(purrr)
library(dplyr)

df2 <- df %>%
  rowwise() %>%
  mutate(
    # 拆分并转为数值向量，用list包裹保留结构
    starts = list(as.numeric(strsplit(exonStarts, ",")[[1]])),
    ends = list(as.numeric(strsplit(exonEnds, ",")[[1]]))
  ) %>%
  # 展开向量为单行元素，同时保证配对关系
  unnest(c(starts, ends)) %>%
  rename(exonStarts = starts, exonEnds = ends) %>%
  select(chr, exonStarts, exonEnds)

说明 #

• rowwise()确保后续操作按行执行，避免跨行干扰。
• list()包裹拆分后的向量，让每个单元格存储完整的起止序列，方便unnest展开。
• unnest会把向量中的元素逐一拆分为单独行，同时维持starts和ends的对应关系。

方法三：Base R实现（无需第三方包） #

如果不想加载额外包，用Base R也能完成：

# 批量拆分每行的起止列，转为数值向量列表
starts_list <- lapply(df$exonStarts, function(x) as.numeric(strsplit(x, ",")[[1]]))
ends_list <- lapply(df$exonEnds, function(x) as.numeric(strsplit(x, ",")[[1]]))

# 根据每个序列长度重复对应chr值
chr_vec <- rep(df$chr, sapply(starts_list, length))

# 合并为最终数据框
df2 <- data.frame(
  chr = chr_vec,
  exonStarts = unlist(starts_list),
  exonEnds = unlist(ends_list)
)

说明 #

• lapply批量处理每行的字符串拆分，得到存储数值向量的列表。
• rep根据每个序列的长度重复chr值，保证与起止位置一一对应。
• unlist将列表转为向量，最终合并成目标数据框。

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