Excel 中的一行数据包括性别年龄编号同时含有被试在100个试次中反应的反应时正确率写一串R代码把它的格式改成100行每行包括被试的性别年龄编号试次数以及该试次的反应时正确率

假设原始数据在Excel中的第一行为标题行，从第二行开始为实际数据。可以使用以下R代码将其格式改成100行：

library(readxl)

# 读取Excel文件
data <- read_excel("your_file.xlsx")

# 创建一个新的数据框
new_data <- data.frame(Gender = character(),
                       Age = numeric(),
                       ID = character(),
                       Trial = numeric(),
                       ReactionTime = numeric(),
                       Accuracy = numeric(),
                       stringsAsFactors = FALSE)

# 循环处理每一行数据
for (i in 2:nrow(data)) {
  gender <- data[i, "Gender"]
  age <- data[i, "Age"]
  id <- data[i, "ID"]
  
  # 循环处理每个试次
  for (j in 1:100) {
    trial <- j
    reaction_time <- data[i, paste0("ReactionTime_", j)]
    accuracy <- data[i, paste0("Accuracy_", j)]
    
    # 添加新行到新数据框
    new_data <- rbind(new_data, c(gender, age, id, trial, reaction_time, accuracy))
  }
}

# 打印新数据框
print(new_data)

请确保将your_file.xlsx替换为实际的Excel文件名。这段代码使用readxl包中的read_excel函数来读取Excel文件，并使用一个空的数据框new_data来存储新的格式化数据。然后，使用循环来逐行处理原始数据，并在内部循环中处理每个试次的数据。最后，将每个试次的数据添加到新数据框中，并打印出来。