R语言循环批量修改dataset_id系列独立数据框行名的实现问题

原代码不生效是两个核心逻辑错误导致的：

• 你在全局环境中的76个数据框是独立命名的零散对象（dataset_id_1到dataset_id_76），但代码里dataset_id_[[i]]的写法，是在调用名为dataset_id_的列表/向量的第i个元素——你根本没有创建这个叫dataset_id_的容器，循环操作根本没指向你真正要改的目标数据框，自然不会生效。
• 代码直接把内置函数名range作为自定义变量名，虽然这次因为存储的是固定数字序列暂时没有触发冲突，但属于高风险的写法，后续调用原生range()函数时很容易出现逻辑错误。

注：你定义的行索引序列长度是完全匹配的：740到1027共计1027-740+1=288个值，刚好和每个数据框的288行行数一致，不存在长度不匹配的问题。

推荐用「批量收纳对象为列表+批量修改+回写环境」的流程，避免零散对象操作容易出错的问题，步骤如下：

1. 定义正确的目标行索引，避免使用内置函数名做变量名：

   target_rownames <- 740:1027
   # 先核对长度匹配，不符合直接中断流程避免错改
   stopifnot(length(target_rownames) == 288)
   

2. 批量抓取全局环境中所有符合命名规则的目标数据框，存入命名列表：

   # 匹配所有命名规则为dataset_id_加数字的对象
   target_df_list <- mget(ls(pattern = "^dataset_id_\\d+$"))
   

3. 批量为列表内的每个数据框替换行索引：

   target_df_list <- lapply(target_df_list, function(df) {
     rownames(df) <- target_rownames
     return(df)
   })
   

4. 将修改完成的数据框写回全局环境，和原有变量名保持一致：

   list2env(target_df_list, envir = .GlobalEnv)
   

如果坚持要使用for循环逐对象修改，需要动态拼接对象名取值，不能直接用不存在的列表索引：

非推荐写法（不如列表流程稳定，容易因为对象名拼写错误出问题）

for (i in 1:76) {
  # 动态拼出当前要修改的对象名，用get()获取实体对象
  current_obj <- get(paste0("dataset_id_", i))
  rownames(current_obj) <- target_rownames
  # 修改完成后重新赋值回全局环境
  assign(paste0("dataset_id_", i), current_obj)
}

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