R语言如何根据起止列生成包含连续数字序列的字符串

方法1：基础R原生实现（无需第三方包） #

直接用mapply逐行遍历start和end列，生成连续序列后用逗号拼接：

df <- data.frame(ID=seq(1:5), 
                 start=seq(2,10,by=2),
                 end=seq(5,13,by=2),
                 desired_output_aschar= c("2,3,4,5", "4,5,6,7", "6,7,8,9", "8,9,10,11", "10,11,12,13"))

# 核心实现代码
df$output <- mapply(function(s, e) {
  paste(seq(from = s, to = e, by = 1), collapse = ",")
}, df$start, df$end)

# 验证和期望输出完全一致
identical(df$output, df$desired_output_aschar) # 返回 TRUE

方法2：tidyverse生态实现（适配管道操作） #

如果你常用dplyr的管道工作流，可以结合rowwise或者purrr::pmap实现：

library(dplyr)
library(purrr)

# 写法1：rowwise逐行处理，可读性更高
df <- df %>%
  rowwise() %>%
  mutate(output = paste(seq(start, end, 1), collapse = ",")) %>%
  ungroup() # 处理完成后取消行分组，避免后续操作异常

# 写法2：pmap批量映射，性能更高适合大数据量场景
df$output <- pmap_chr(
  .l = list(df$start, df$end),
  .f = ~ paste(seq(..1, ..2, 1), collapse = ",")
)

异常兼容提示 #

如果你的数据中可能存在start > end的异常情况，可以修改生成序列的逻辑避免报错：

# 兼容倒序异常的写法示例
paste(seq(from = min(s,e), to = max(s,e), by = 1), collapse = ",")

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