如果每个组在R中都有特定的块大小，如何将函数拆分或应用于散布的组？

library(doParallel)
library(foreach)

# 创建一个并行计算集群
cl <- makeCluster(4)  # 设置并行计算的核心数
registerDoParallel(cl)

# 创建数据集和组信息
data <- 1:100
groups <- rep(c("A", "B", "C"), each = 10)

# 定义要应用的函数
myFunction <- function(group, data) {
  # 在这里编写你的函数逻辑
  # 可以使用 group 和 data 参数进行计算
  # 返回计算结果
  return(mean(data[group]))
}

# 使用 lapply 函数将函数应用于每个组
results <- lapply(unique(groups), function(group) {
  myFunction(group, data)
})

# 使用 foreach 包将函数应用于每个组，并将结果组合为一个向量
results <- foreach(group = unique(groups), .combine = c) %dopar% {
  myFunction(group, data)
}

# 关闭并行计算集群
stopCluster(cl)