为RStudio中的每个参与者创建具有3个数据帧的每个参与者ID列表

# 假设你有以下数据帧
df1 <- data.frame(id = c(1, 2, 3), value = c(10, 20, 30))
df2 <- data.frame(id = c(4, 5, 6), value = c(40, 50, 60))
df3 <- data.frame(id = c(7, 8, 9), value = c(70, 80, 90))

# 创建参与者ID列表
participant_ids <- c("pid1", "pid2", "pid3")

# 创建包含数据帧的列表
participant_data <- list(
  pid1 = list(df1 = df1, df2 = df2, df3 = df3),
  pid2 = list(df1 = df1, df2 = df2, df3 = df3),
  pid3 = list(df1 = df1, df2 = df2, df3 = df3)
)

# 访问特定参与者的数据帧
print(participant_data$pid1$df1)

# 假设你有一个参与者ID的向量和一个数据帧的列表
participant_ids <- c("pid1", "pid2", "pid3")
data_frames <- list(df1, df2, df3)

# 使用循环创建列表
participant_data <- lapply(participant_ids, function(pid) {
  list(df1 = data_frames[[1]], df2 = data_frames[[2]], df3 = data_frames[[3]])
})

# 访问特定参与者的数据帧
print(participant_data[[1]]$df1)