R语言中如何将数据框的区间格式列展开为单行单值？

嘿，这个需求在结构化数据处理里挺常见的，我给你两个实用的R解决方案，一个用tidyverse（现在R数据处理的主流工具包集合），另一个用基础R，你可以按需选择：

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

tidyverse里的dplyr和tidyr能很流畅地完成这个任务，还能处理你数据里像241-3这种特殊的区间写法（结尾是短位数，实际对应241-243）：

library(tidyverse)

# 先构造你的示例数据
df <- tibble(
  bransch = c("name", "name", "name", "somename", "name", "someothername"),
  sni = c("15", "15", "16-18", "16-18", "241-3", "241-3")
)

# 处理流程
df_processed <- df %>%
  # 把sni拆成起始和结束列，单个数字的行结束列自动补NA
  separate(sni, into = c("start", "end"), sep = "-", fill = "right") %>%
  # 转换为整数，并处理特殊区间（比如241-3转成241-243）
  mutate(
    start = as.integer(start),
    end = case_when(
      # 单个数字的行，结束值等于起始值
      is.na(end) ~ start,
      # 结尾位数比起始短的情况，补全高位
      nchar(end) < nchar(as.character(start)) ~ as.integer(str_c(str_sub(as.character(start), 1, nchar(as.character(start)) - nchar(end)), end)),
      # 常规区间直接转整数
      TRUE ~ as.integer(end)
    )
  ) %>%
  # 按行生成从start到end的数字序列
  rowwise() %>%
  mutate(sni = list(seq(start, end, by = 1))) %>%
  # 把序列列表展开成单独的行
  unnest(sni) %>%
  # 移除临时的start和end列
  select(-start, -end)

# 查看结果
print(df_processed)

方法二：用基础R（无需额外包） #

如果你不想加载外部包，用基础R的函数也能实现，核心是自定义一个处理单条sni数据的函数，再批量应用：

# 构造示例数据
df <- data.frame(
  bransch = c("name", "name", "name", "somename", "name", "someothername"),
  sni = c("15", "15", "16-18", "16-18", "241-3", "241-3"),
  stringsAsFactors = FALSE
)

# 定义处理单个sni值的函数
expand_sni <- function(x) {
  if (!grepl("-", x)) {
    # 单个数字直接返回
    return(as.integer(x))
  } else {
    # 拆分区间
    parts <- strsplit(x, "-")[[1]]
    start <- as.integer(parts[1])
    end <- parts[2]
    # 处理短结尾的特殊区间
    if (nchar(end) < nchar(as.character(start))) {
      prefix <- substr(as.character(start), 1, nchar(as.character(start)) - nchar(end))
      end <- as.integer(paste0(prefix, end))
    } else {
      end <- as.integer(end)
    }
    # 生成序列
    return(seq(start, end, by = 1))
  }
}

# 逐行处理并生成结果列表
result_list <- lapply(1:nrow(df), function(i) {
  sni_values <- expand_sni(df$sni[i])
  data.frame(
    bransch = rep(df$bransch[i], length(sni_values)),
    sni = sni_values,
    stringsAsFactors = FALSE
  )
})

# 合并所有结果行
df_processed_base <- do.call(rbind, result_list)

# 查看结果
print(df_processed_base)

关于你之前遇到的空值问题 #

你说拆分后有大量空值，其实这是正常的——单个数字的行没有-分隔符，所以拆分后结束列会是NA。解决思路很简单：把这些NA的结束值替换成起始值，这样生成的序列就是单个数字，展开后就不会丢失数据啦。

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