R无法将所有行导出到csv

Question

基本知识，但我似乎无法解决。我执行了以下过程：

d1<-read.csv('hourly.csv',sep=",",header=F)
names(d1)<-c("date","rain","q","qa","qb")
d2<-read.csv('event.csv',sep=",",header=F)
names(d2)<-c("enum","st","et","rain2","qtot")

for(k in 1:206){
st<-d2[k,2]
et<-d2[k,3]
Datetime<-d1[st,]

print(Datetime)
write.csv(Datetime, file="DatesA3.csv")
}

最后，我将结果导出到一个csv文件中。共有206行，它们在R中显示正常。但是在导出时，csv文件中仅导出了最后一行。我在write.table，append等地方尝试了多种方法，但似乎没有任何效果。

如何将每一行导出到一个文件中？ 请指教，谢谢！

Answer 1

Datetime[k, ] <- d1[st, ] # instead, otherwise you overwrite
# and write the result outside the loop