R语言中用for循环导出回归分析结果

问题：用for循环对多个变量进行线性回归分析，在导出这些回归结果时由于文件名一样，前面的内容都被覆盖了，请问如何将这些回归分析结果导出到csv文件中？

library(epiDisplay) #整理回归结果
y <- c("a","b","c","d","e","f","g")
for (i in y) {
fit1 <- lm(da[,i]~x, data = da)
write.csv(regress.display(fit1,decimal = 3)$table, file = "D/fit1_i.csv")
}