在R语言中将年度列转为季度列并重复值的更优雅实现方法

方法1：使用tidyverse（推荐，逻辑清晰且批量友好） #

这种方法通过长格式→生成季度→宽格式的流程，自动处理所有年度列，无需逐个手动操作：

library(tidyverse)

# 还原原始数据集
df <- data.frame(Item = c("A", "B", "C"),
                 Year2020 = c(1, 2, 3),
                 Year2021 = c(4, 5, 6))

# 核心转换代码
df_quarter <- df %>%
  # 将年度列转为长格式，方便批量处理
  pivot_longer(cols = starts_with("Year"), 
               names_to = "Year", 
               values_to = "Value") %>%
  # 提取年份的后两位（如2020→20）
  mutate(Year_short = str_sub(Year, 5, 6)) %>%
  # 为每个年度生成四个季度的行
  crossing(Quarter = c("1Q", "2Q", "3Q", "4Q")) %>%
  # 拼接季度与年份后缀，生成目标列名（如1Q20）
  mutate(Quarter_Year = str_c(Quarter, Year_short)) %>%
  # 转回宽格式，得到最终结果
  pivot_wider(id_cols = Item, 
              names_from = Quarter_Year, 
              values_from = Value)

运行后输出的df_quarter完全符合预期格式，且新增任意年度列（如Year2022）都能自动适配，无需修改代码。

方法2：使用Base R（无需额外加载包） #

如果不想依赖tidyverse包，可以用Base R实现批量处理：

# 还原原始数据集
df <- data.frame(Item = c("A", "B", "C"),
                 Year2020 = c(1, 2, 3),
                 Year2021 = c(4, 5, 6))

# 1. 识别所有年度列
year_cols <- grep("^Year", names(df), value = TRUE)
# 2. 提取年份后缀并生成季度列名
year_suffixes <- str_sub(year_cols, 5, 6)
quarter_names <- expand.grid(Quarter = c("1Q", "2Q", "3Q", "4Q"), 
                             Year = year_suffixes) %>%
  mutate(col_name = str_c(Quarter, Year)) %>%
  arrange(Year, Quarter) %>%
  pull(col_name)
# 3. 批量复制每个年度列4次，生成季度数据矩阵
quarter_data <- do.call(cbind, lapply(year_cols, function(col) {
  replicate(4, df[[col]])
}))
colnames(quarter_data) <- quarter_names
# 4. 合并Item列与季度数据
df_quarter_base <- cbind(df["Item"], quarter_data)

两种方法的优势 #

相比你之前逐个处理年度列的方案，这两种方法都实现了批量自动化：

• 不管数据集有多少个年度列，都能一次性完成转换
• 代码结构清晰，易于维护和扩展
• 避免了手动重命名、调整列顺序等繁琐操作

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