R语言中如何让data frame每行重复3次并新增Year列？

解决方案 #

方法1：tidyverse 管道式实现（推荐） #

加载tidyverse套件后，用mutate + unnest组合即可快速完成需求：

# 加载依赖包
library(tidyverse)

# 假设你的原始数据框名为df
df_output <- df %>%
  # 每行新增一个包含1、2、3的列表列
  mutate(Year = list(1:3)) %>%
  # 展开列表列，自动生成对应重复行
  unnest(Year)

方法2：Base R 无依赖实现 #

不需要安装第三方包，用基础函数也能实现相同效果：

# 按每行重复3次的规则扩展原始数据框
df_output <- df[rep(seq_len(nrow(df)), each = 3), ]
# 新增Year列，每3行循环一次1、2、3
df_output$Year <- rep(1:3, times = nrow(df))

两种方法输出的结果完全匹配你给出的预期结构。

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