R语言如何拆分面板数据行 生成指定结构的数据框

针对你需要按判断规则拆分data.frame指定行的需求，直接写通用处理函数即可，不需要依赖复杂第三方包，基础R就能实现。

核心逻辑 #

当行内t2字段值大于365时，将原单条记录拆为2条：

• 第一条记录：保留原id、meds、t1值，t2替换为365
• 第二条记录：保留原id、meds、t2值，t1替换为366
  不符合拆分条件的行原样保留。

基础R实现代码（无依赖） #

# 构造原始数据集
data <- data.frame(id = 111, t1 = 277, t2 = 385, meds = 1)

# 定义拆分行通用函数
split_rows <- function(raw_df) {
  result_list <- list()
  for (row_idx in seq_len(nrow(raw_df))) {
    current_row <- raw_df[row_idx, ]
    # 写入拆分判断条件
    if (current_row$t2 > 365) {
      # 拆分后第一段
      seg1 <- current_row
      seg1$t2 <- 365
      # 拆分后第二段
      seg2 <- current_row
      seg2$t1 <- 366
      result_list <- append(result_list, list(seg1, seg2))
    } else {
      result_list <- append(result_list, list(current_row))
    }
  }
  # 合并所有行得到最终数据集
  do.call(rbind, result_list)
}

# 执行处理
target_data <- split_rows(data)

运行后输出结果和你预期的目标结构完全一致：

> target_data
   id  t1  t2 meds
1 111 277 365    1
2 111 366 385    1

可选：tidyverse写法 #

如果你平时用dplyr处理数据，也可以用以下写法实现，逻辑和基础R版本完全一致：

library(dplyr)
library(tidyr)

target_data <- data |>
  rowwise() |>
  mutate(
    seg_data = list(
      if (t2 > 365) {
        data.frame(t1 = c(t1, 366), t2 = c(365, t2))
      } else {
        data.frame(t1 = t1, t2 = t2)
      }
    )
  ) |>
  unnest(seg_data) |>
  select(id, t1, t2, meds)

注：如果你的拆分阈值、字段规则有调整，直接修改判断条件和对应字段赋值即可，上述函数支持批量处理多行数据集，不需要逐行手动编辑。

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