r - R中的行交错添加

Question

我有一个包含 10,000 个条目的数据库，我需要更正日期。每行由 ID 和 Year 索引。事件之间的时间和开始日期是正确的，但日期是错误的。我的数据集示例如下:

    ID     Date       Time First_Date Year
1 ooo-207 1982-05-09     0 1982-05-09 1982
2 ooo-207 1982-05-09    12 1982-05-09 1982
3 ooo-207 1982-06-02    12 1982-05-09 1982
4 ooo-207 1982-06-02    10 1982-05-09 1982
5 ooo-207 1982-06-02    12 1982-05-09 1982
6 ooo-208 1982-07-06     0 1982-07-06 1982
7 ooo-208 1982-07-07    10 1982-06-12 1982
8 ooo-208 1982-07-08    11 1982-06-12 1982
9 ooo-208 1982-08-09    11 1982-06-12 1982

我需要以交错方式将日期按时间更正为 First_Date。在计算出每个新日期后，该新日期将成为添加下一个等待时间的起点。我需要每年从每只动物身上做这件事。新的数据集看起来像:

    ID     Date       Time First_Date Year
1 ooo-207 1982-05-09     0 1982-05-09 1982
2 ooo-207 1982-05-21    12 1982-05-09 1982
3 ooo-207 1982-06-02    12 1982-05-09 1982
4 ooo-207 1982-06-12    10 1982-05-09 1982
5 ooo-207 1982-06-24    12 1982-05-09 1982
6 ooo-208 1982-07-06     0 1982-07-06 1982
7 ooo-208 1982-07-16    10 1982-07-06 1982
8 ooo-208 1982-07-27    11 1982-07-06 1982
9 ooo-208 1982-08-07    11 1982-07-06 1982

Answer 1

如果我正确理解了您的问题，这应该会有所帮助:

library(dplyr)

df %>%
  group_by(ID) %>%
  mutate(
    Date = First_Date + cumsum(Time)
  )