如何通过并行方式将向量列表添加到data.frame对象列表中作为新的插槽？

# 加载必要的库
library(parallel)

# 假设我们有一个data.frame对象列表和一个向量列表
df_list <- list(data.frame(x=1:5), data.frame(x=6:10))
vector_list <- list(c(11,12,13,14,15), c(16,17,18,19,20))

# 定义一个函数，用于将向量添加到单个data.frame中
add_vector_to_df <- function(df, vector) {
  df$new_column <- vector
  return(df)
}

# 使用mclapply进行并行处理
num_cores <- detectCores() - 1 # 获取可用的核心数，并留一个给系统
result_list <- mclapply(seq_along(df_list), function(i) {
  add_vector_to_df(df_list[[i]], vector_list[[i]])
}, mc.cores = num_cores)

# 查看结果
print(result_list)