将总data frame拆为100行小数据框如何循环命名并解决赋值报错

报错cannot assign to function call的核心是R语法规则不允许将函数调用的返回值作为赋值操作的左值，你写的paste("df",i,sep="") = df_total[i]写法里，赋值符号左侧是paste()函数的执行结果，属于函数调用，R语法不支持直接给函数调用赋值。同时你原有代码还存在两个逻辑问题：

• 循环范围设置错误，你遍历的是整个数据框的总行数，没有按照100行每块的拆分逻辑划分行范围；
• 混淆了其他编程语言的循环写法，R原生没有用于生成循环序列的range函数，应该使用seq_len等序列生成函数。

方案1：直接生成df1、df2...格式的独立变量 #

如果你确实需要生成对应规则命名的独立变量，可以使用R内置的assign()函数实现动态赋值，代码如下：

# 定义每块数据的行数
chunk_size <- 100
# 计算需要拆分的总块数
total_rows <- nrow(df_total)
n_chunks <- ceiling(total_rows / chunk_size)

# 循环拆分赋值
for (i in seq_len(n_chunks)) {
  # 计算当前块的起止行号
  start <- (i - 1) * chunk_size + 1
  end <- min(i * chunk_size, total_rows)
  # 动态赋值生成对应变量
  assign(paste0("df", i), df_total[start:end, ])
}

运行后你就可以直接调用df1、df2等变量访问对应的100行小数据框。

方案2（更推荐）：用列表存储所有拆分后的数据框 #

生成大量零散的全局变量后续批量处理时非常不便，更建议你将拆分后的所有小数据框存在一个列表中，后续批量操作可以直接用lapply等函数遍历列表，代码如下：

chunk_size <- 100
total_rows <- nrow(df_total)
# 生成分组索引
group_idx <- rep(seq_len(ceiling(total_rows / chunk_size)), each = chunk_size, length.out = total_rows)
# 拆分数据框存入列表
df_list <- split(df_total, group_idx)
# 给列表元素命名为df1、df2...格式
names(df_list) <- paste0("df", seq_along(df_list))

使用时通过df_list$df1或者df_list[["df1"]]即可访问对应小数据框。

内容的提问来源于stack exchange，提问作者Data_Science_110