如何高效将R数据框列转为行并新增标识区分Start/End类型

实现方案 #

你需要的是宽表转长表的操作，完全不需要手写for循环，以下两种是常用的高效实现方式：

方法1：tidyverse方案（推荐，代码简洁可读性高） #

通过dplyr+tidyr的pivot_longer函数实现，代码如下：

# 加载包，未安装的话先运行 install.packages("tidyverse")
library(tidyverse)

# 转置处理
result <- DF %>%
  # 先统一年份列的命名规则，方便后续拆分
  rename(Year_start = Start, Year_end = End) %>%
  pivot_longer(
    cols = -ID, # 除ID外所有列参与转置
    names_to = c(".value", "type"), # 拆分列名，后缀存入type列，前缀作为新列名
    names_sep = "_" # 以下划线作为列名拆分符
  )

输出的result共4列：

• ID：原数据的ID列
• type：标识该行是Start还是End，取值为start/end
• Ind：所有Ind值合并后的列
• Year：所有年份合并后的列

方法2：基础R方案（无需额外安装包） #

用R自带的reshape函数实现：

# 重命名列，统一命名规则
colnames(DF) <- c("ID", "Ind_end", "Ind_start", "Year_start", "Year_end")
# 宽转长处理
result <- reshape(
  DF, 
  direction = "long",
  idvar = "ID",
  varying = list(c("Ind_start", "Ind_end"), c("Year_start", "Year_end")),
  v.names = c("Ind", "Year"),
  times = c("start", "end")
)
# 移除reshape自动生成的冗余id列
result$id <- NULL

两种方法输出的结果完全一致，最终行数为原数据的2倍，完全符合你的需求。

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