用最新的非空单元格填充空单元格（改善运行时间）

Question

我正在寻求加快这段代码的速度。本质上，它只是用最新的非空单元格填充空单元格。除了要遍历每行（50万行是站不住脚的）之外，我想找到一种更有效的方法来填充单元格。

dat = data.frame(a=c('A','','','B','','','','C',''), b=c(1,2,3,4,5,6,7,8,9))
for (i in 2:nrow(dat)) { dat[i,'a'] = ifelse(dat[i,'a']=='',dat[(i-1),'a'],dat[i,'a']) }