R语言循环读取2005-2007年CSV文件写入数据库仅读取最后一个文件的问题解决咨询

你遇到的问题根源有两个：

1. 循环内部每次读取CSV时，都用新数据覆盖了ontime变量，循环结束后自然只剩最后一次（2007年）的数据；
2. 写入数据库的判断逻辑放在了循环外部，只会执行一次，且此时i的值已经是循环的最后一个元素2007，所以只处理了2007年的数据。

另外注意原代码里有个笔误：读取数据赋值给了ontime，但写入时用的是ontimet，这会直接导致变量未定义错误，得先统一变量名。

下面给你两种可行的修复方案：

方案1：循环内逐次读取并写入数据库 #

这种方法适合数据量较大的场景，不需要一次性把所有数据加载到内存：

# 确保你已经通过DBI::dbConnect()等方式建立了有效的数据库连接conn
for(i in 2005:2007){ 
  # 读取当前年份的CSV文件
  ontime <- read.csv(paste0(i, ".csv"), header = TRUE)
  
  # 按年份判断是新建表还是追加数据
  if(i == 2005){ 
    dbWriteTable(conn, "ontimet", ontime) 
  } else { 
    dbWriteTable(conn, "ontimet", ontime, append = TRUE) 
  }
}

工作逻辑：每循环一次就读取对应年份的文件，立刻写入数据库，不会覆盖之前的数据，同时根据当前年份判断是初始化表还是追加数据。

方案2：先合并所有数据再一次性写入 #

如果你的CSV文件数据量不大，可以先把所有年份的数据合并成一个DataFrame，再统一写入，这样代码更简洁：

# 创建空的总数据框
all_ontime <- data.frame()

for(i in 2005:2007){ 
  # 读取当前年份数据
  current_data <- read.csv(paste0(i, ".csv"), header = TRUE)
  # 合并到总数据框（确保所有CSV的列名、结构一致）
  all_ontime <- rbind(all_ontime, current_data)
}

# 一次性写入数据库：overwrite=TRUE会覆盖现有表，若要追加可用append=TRUE
dbWriteTable(conn, "ontimet", all_ontime, overwrite = TRUE)

额外注意事项 #

• 请确认所有CSV文件的列名、数据类型完全一致，否则追加或合并时会报错；
• 确保conn是有效的数据库连接对象（比如用DBI::dbConnect(RSQLite::SQLite(), "your_db.db")或对应数据库的连接函数创建）；
• 如果数据量极大，方案1的逐次写入更节省内存，避免内存溢出。

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