将dataframe拆分为最小n个观察值，并对R中的所有行执行此操作

# 创建一个示例数据框
df <- data.frame(
  id = 1:10,
  name = c("Alice", "Bob", "Charlie", "David", "Eve", "Frank", "Grace", "Henry", "Ivy", "Jack"),
  age = c(25, 32, 28, 41, 35, 29, 37, 24, 31, 27)
)

# 定义拆分函数
split_df <- function(df, n) {
  # 计算每个子数据框的行数
  rows_per_df <- ceiling(nrow(df) / n)
  
  # 使用split函数拆分数据框
  split_df <- split(df, rep(1:n, each = rows_per_df, length.out = nrow(df)))
  
  return(split_df)
}

# 调用拆分函数，将dataframe拆分为3个子数据框
split_dfs <- split_df(df, 3)

# 打印拆分后的子数据框
for (i in 1:length(split_dfs)) {
  cat("子数据框", i, ":\n")
  print(split_dfs[[i]])
  cat("\n")
}