R代码：将Excel数据格式化为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来存储新的格式化数据。然后，使用循环来逐行处理原始数据，并在内部循环中处理每个试次的数据。最后，将每个试次的数据添加到新数据框中，并打印出来。