R语言循环处理表格报错：object 'start_lat' not found 求解

• 核心错误：transform(i, ...)里的第一个参数用了循环索引i（数值类型），而不是你提取出来的数据框tbl，transform找不到数值里的列名，所以报错object 'start_lat' not found。
• 次要问题：循环里处理完数据后，没有把结果存回列表或原变量，所有操作都是临时的，执行完不会保留清洗后的结果。
• 潜在笔误：tdcl_202405 <- te_202405里的te_202405应该是td_202405，否则会引用不存在的变量。
• 冗余代码：逐个复制表格的代码可以简化，不用手动写12次赋值。

# 1. 修正笔误，批量复制原数据到清洗版（避免手动逐个赋值）
# 先定义所有原数据的变量名
original_tbl_names <- c("td_202307", "td_202308", "td_202309", "td_202310", 
                        "td_202311", "td_202312", "td_202401", "td_202402", 
                        "td_202403", "td_202404", "td_202405", "td_202406")
# 批量创建清洗版表格
for (name in original_tbl_names) {
  clean_name <- paste0("tdcl_", substr(name, 3, 8))
  assign(clean_name, get(name))
}

# 2. 创建表格列表（直接用clean_name批量生成）
clean_tbl_names <- paste0("tdcl_", substr(original_tbl_names, 3, 8))
tblList <- mget(clean_tbl_names)

# 3. 循环清洗数据，同时存回列表
cols_to_convert <- c("start_lat", "start_lng", "end_lat", "end_lng")
for (i in seq_along(tblList)) {
  # 提取当前数据框
  tbl <- tblList[[i]]
  # 转换指定列为numeric类型
  tbl[cols_to_convert] <- lapply(tbl[cols_to_convert], as.numeric)
  # 将处理后的数据存回列表
  tblList[[i]] <- tbl
}

# 4. （可选）将清洗后的数据从列表还原回独立变量
list2env(tblList, envir = .GlobalEnv)

如果你熟悉dplyr和purrr，可以用更易读的代码完成：

library(dplyr)
library(purrr)

# 批量读取/复制数据并清洗
clean_tbl_list <- map(original_tbl_names, ~{
  get(.x) %>%
    mutate(across(all_of(cols_to_convert), as.numeric))
})

# 命名列表并还原为独立变量
names(clean_tbl_list) <- clean_tbl_names
list2env(clean_tbl_list, envir = .GlobalEnv)

• 用lapply(tbl[cols_to_convert], as.numeric)比transform更灵活，能批量处理指定列。
• seq_along(tblList)比固定的1:12更鲁棒，列表长度变化时不用手动修改。
• list2env可以把列表中的每个元素还原为全局环境中的独立变量，满足你"保持表格独立"的需求。

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