您可以按如下方式获取所有参与者的列表：

participant_list <- unique(AllANT_z$participant)

请注意，我不能确定这是否适合您，因为我没有看到您的实际数据。但一般来说，这应该工作。此外，您可能需要检查将创建多少文件：

length(participant_list)

之后，您可以循环查看参与者ID，过滤并将其保存到CSV文件中：

for (id in participant_list) {
  participant_data <- AllANT_z %>%
    filter(participant == id)
  write.csv(participant_data, paste0("E:/CognitiveData_Processed/ANT_zscored/zscored_allANT/", id, ".csv"), row.names = TRUE)
}

您还可以使用子集来代替过滤器：

for (id in participant_list) {
  participant_data <- subset(AllANT_z, participant == id)
  write.csv(participant_data, paste0("E:/CognitiveData_Processed/ANT_zscored/zscored_allANT/", id, ".csv"), row.names = TRUE)
}

假设您有330个参与者，并且他们都遵循命名方案“boa{three-digit-number}”

#sprintf is used to generate the numbers with leading zeros
for(i in sprintf('%0.3d', 1:330)){

      participant <- paste0("boa", i)
      
      AllANT_z %>%
        filter(participant == participant) %>% 
        write.csv(paste0("E:/CognitiveData_Processed/ANT_zscored/zscored_allANT/", participant, ".csv", row.names = TRUE))
    }

这将为所有参与者生成字符串，选择相应的参与者，并使用相应的名称编写CSV文件。如果它们不遵循命名方案，则应使用所有名称定义向量，如

participants <- c("boa001, ...")

然后像这样迭代

for(i in participants){
  AllANT_z %>%
    filter(participant == participant) %>% 
    write.csv(paste0("E:/CognitiveData_Processed/ANT_zscored/zscored_allANT/", participant, ".csv", row.names = TRUE))
}