R语言数据框重塑求助：按Date分组将行转换为指定列

首先，先把你的示例数据用R代码还原，方便你测试：

library(tidyverse)

# 原始数据
df <- tibble(
  `Column A` = c(10, 20, 30, 40),
  `Column B` = c(15, 20, 30, 50),
  type = c("Type 1", "Type 2", "Type 1", "Type 2"),
  Date = c("Date 1", "Date 1", "Date 2", "Date 2")
)

接下来用两步转换实现你要的结构：

# 第一步：将Column A和B转成长格式，生成可组合的列名元素
df_long <- df %>%
  pivot_longer(cols = c(`Column A`, `Column B`), 
               names_to = "col", 
               values_to = "value") %>%
  # 提取列名里的A/B部分
  mutate(col = str_remove(col, "Column ")) %>%
  # 组合type和col生成目标列名
  mutate(new_col = paste(type, col, sep = "-"))

# 第二步：转成目标宽格式，调整列顺序
df_wide <- df_long %>%
  pivot_wider(names_from = new_col, 
              values_from = value) %>%
  # 把Date列移到最后
  relocate(Date, .after = last_col())

运行后df_wide就是你要的结构：

关键步骤说明 #

• pivot_longer：把多列（Column A/B）合并成两列，方便后续组合新列名
• str_remove：清理列名里的冗余前缀，只保留A/B标识
• paste：把type和A/B拼接成你需要的列名格式
• pivot_wider：把长格式数据转回宽格式，自动按Date分组匹配对应值
• relocate：调整Date列位置，和你期望的结构完全一致

这个方法适配你数百小时的历史数据，只要数据结构和示例一致，直接运行代码即可批量完成转换。

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