从R中的数据帧中的时差生成绝对时间

Question

我有一个名为“ myseis”的数据框，其中包含Accelerationdata：

    X     Y     Z     dt
1  -0.843 3.854 8.247  0
2  -0.598 3.795 8.110 20
3  -0.402 3.834 8.325 19
4  -0.353 3.883 8.414 20
5  -0.117 4.059 8.404 20
6   0.039 3.854 8.159 20
7   0.235 3.726 7.894 20
8   0.372 3.706 7.717 20
9   0.451 3.903 7.835 21
10  0.568 4.197 8.061 19

我想添加第5列，其中包含绝对时间。像这样：

        X     Y     Z     dt    Date/Time
    1  -0.843 3.854 8.247  0    2018-08-020 10:00:00,000
    2  -0.598 3.795 8.110 20    2018-08-020 10:00:00,020
    3  -0.402 3.834 8.325 19    2018-08-020 10:00:00,039
    4  -0.353 3.883 8.414 20    2018-08-020 10:00:00,059
    etc.

所以我想将“ dt”列（毫秒）加到POSIXct中的启动时间。

我有点想我可以做到：

time <- c(starttime)
i <- 1

while(i < nrow(myseis))
{
    i <- i+1
    time <- c(time,time[i-1]+myseis[i,4])
}
myseis <- data.frame(myseis,time)

在小范围内，这会签出，但在这种情况下，nrow（myseis）= 247118，因此这将永远花费。

还有另一种方法吗？我想稍后再绘制此数据框的子集。

谢谢