R 数据表中的循环对于大数据来说太慢

我有一个问题-data.table的循环有点复杂

VisitSources <- as.vector(DF$PVsource)


 for (i in 2:nrow(DF)) {

   if(DF[i,visitID]==DF[i-1,visitID]) {

    VisitSources[i]=VisitSources[i-1]

  }
 }
DF=cbind(DF,VisitSources)

问候,，

---

多洛塔提出的问题真的很糟糕。我想你在寻找：

DT[, VisitSources := PVsource[1], by = rleid(VisitID)]

---

请阅读为什么撅嘴？这就是我所有的代码。这需要几个小时。我只是想把它改快一点。

DT[, VisitSources := PVsource[1], by = rleid(VisitID)]