如何在R中将长格式EEG数据框转换为宽格式并重命名列？

前提说明 #

你的原始数据需包含参与者ID列（比如命名为Participant），用于区分20名参与者——这是生成20行宽格式数据的核心依据（否则转换后只会得到1行数据）。假设你的数据框名为eeg_data，列包含Participant、Channels、Cor_Delta、Cor_Theta、Cor_Alpha、Cor_Beta、Cor_Gamma。

方法1：使用tidyr（tidyverse生态，推荐） #

利用pivot_wider函数直接转换，通过names_glue参数自定义列名格式：

# 加载tidyverse包
library(tidyverse)

# 转换为宽格式
eeg_wide <- eeg_data %>%
  pivot_wider(
    id_cols = Participant,          # 按参与者ID分组，作为行标识
    names_from = Channels,          # 提取通道名作为列名后缀
    values_from = c(Cor_Delta, Cor_Theta, Cor_Alpha, Cor_Beta, Cor_Gamma),  # 待转换的数值列
    names_glue = "{.value}_{Channels}"  # 拼接列名：频段名_通道名（如Cor_Delta_Fp1）
  )

方法2：使用reshape2（传统重塑方法） #

先通过melt将数据转成极长格式，再用dcast转宽：

# 加载reshape2包
library(reshape2)

# 第一步：转极长格式
eeg_melted <- melt(
  eeg_data, 
  id.vars = c("Participant", "Channels"),  # 保留的分组列
  variable.name = "Band"                   # 新生成的频段列名
)

# 第二步：转宽格式，自动拼接频段和通道名为列名
eeg_wide <- dcast(eeg_melted, Participant ~ Band + Channels, value.var = "value")

结果验证 #

转换后的eeg_wide数据框维度应为20×80（20名参与者 × 16通道×5频段），列名格式完全符合Cor_Delta_Fp1这类要求。

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