求助：在R中遍历唯一受试者值并将对应列数据复制到新矩阵的实现方法

我来帮你解决这个问题！其实在R里处理这种分组转宽的需求，既可以用你最初设想的循环方法，也可以用更符合R风格的高效工具，两种方式我都详细给你拆解一下，你可以根据自己的习惯和数据集大小来选择。

方法一：用tidyverse工具实现（无循环，更高效） #

对于大数据集来说，避免显式循环通常会更快也更易维护，我们可以用dplyr和tidyr包来完成这个任务：

# 首先加载所需包
library(tidyverse)

# 你的原始数据（先把它赋值给CS_data_acc）
CS_data_acc <- structure(list(Subject = c(500, 500, 500, 500, 500, 501, 501,
501, 501, 501, 501, 502, 502, 502, 502, 502, 502, 509, 509, 509,
509, 509, 509), Stimuli.ACC = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L),
Stimuli.CRESP = c(3L, 4L, 3L, 3L, 4L, 4L, 4L, 3L, 3L, 4L,
4L, 4L, 4L, 4L, 3L, 3L, 4L, 4L, 3L, 3L, 3L, 4L, 4L)), row.names = c(1L,
2L, 3L, 4L, 5L, 200L, 201L, 202L, 203L, 204L, 205L, 400L, 401L,
402L, 403L, 404L, 405L, 600L, 601L, 602L, 603L, 604L, 605L), class = "data.frame")

# 步骤1：给每个受试者的记录添加内部行号，方便后续对齐
CS_data_acc <- CS_data_acc %>%
  group_by(Subject) %>%
  mutate(row_id = row_number()) %>%
  ungroup()

# 步骤2：将数据转成宽格式，每个受试者对应一列，缺失的行自动填充0
wide_data <- CS_data_acc %>%
  select(Subject, row_id, Stimuli.ACC) %>%
  pivot_wider(names_from = Subject, values_from = Stimuli.ACC, values_fill = 0)

# 步骤3：对齐到6行（你的Acc_vector初始是6行），并整理成目标格式
Acc_vector <- wide_data %>%
  right_join(tibble(row_id = 1:6), by = "row_id") %>%
  select(-row_id) %>%
  replace(is.na(.), 0) %>%
  as.data.frame()

# 可选：按受试者出现的顺序调整列顺序
unique_subjects <- unique(CS_data_acc$Subject)
Acc_vector <- Acc_vector[, unique_subjects]

这个方法的核心是利用pivot_wider把长格式数据转成宽格式，自动帮你处理不同受试者记录数不一致的问题，缺失的位置直接补0，非常省心。

方法二：用循环实现（符合你的初始思路） #

如果你更习惯用循环来实现，这里也给你调整好的代码，完全匹配你的需求：

# 先获取所有唯一的受试者ID
unique_subjects <- unique(CS_data_acc$Subject)

# 初始化Acc_vector：行数取所有受试者中最多的记录数（这里是6），列数等于受试者数量
Acc_vector <- data.frame(matrix(0, ncol = length(unique_subjects), nrow = max(table(CS_data_acc$Subject))))

# 遍历每个受试者，填充对应列
for (i in seq_along(unique_subjects)) {
  # 提取当前受试者的Stimuli.ACC数据
  current_acc <- CS_data_acc$Stimuli.ACC[CS_data_acc$Subject == unique_subjects[i]]
  # 将数据赋值到Acc_vector的第i列，只填充对应长度的行，剩余行保持初始的0
  Acc_vector[1:length(current_acc), i] <- current_acc
}

# 可选：给列名设置为受试者ID，方便识别
colnames(Acc_vector) <- unique_subjects

这段代码的逻辑很清晰：先拿到所有唯一受试者，然后逐个提取他们的Stimuli.ACC数据，放到Acc_vector的对应列里，因为Acc_vector初始全是0，所以那些记录数不足6行的受试者，剩下的行就自动保留0了，完全符合你的要求。

备注：内容来源于stack exchange，提问作者Orestes_Fox