我有以下起点:
#dataset:
schedule <- tibble(start = as.Date(c("2018-07-11", NA, NA)), duration = c(10,23,9),flag_StartActual = c(TRUE,FALSE,FALSE))
表格格式:
> schedule
# A tibble: 3 x 3
start duration flag_StartActual
<date> <dbl> <lgl>
1 2018-07-11 10 TRUE
2 NA 23 FALSE
3 NA 9 FALSE
我想计算end
(=开始+持续时间)。第一行完成后,我想让end
第一行的start
第二行。
我尝试了各种方法,但到目前为止我还没有成功。我考虑的事情是:
end
使用lag(end) 函数从上一行获取。这适用于第二行,但对于以下所有行end
尚不存在。- 我已经尝试过,
rowwise()
但在这种情况下,我无法使该lag()
功能正常工作。
下面的代码或多或少地做了我想做的事情,但这不是很整洁,因为需要为每一行添加一个变异(然后重新计算所有前面的行)。
> schedule %>%
+ mutate(
+ end = start + ddays(duration),
+ start = as_datetime(ifelse(flag_StartActual==TRUE,start,lag(end)))
+ ) %>%
+ mutate(
+ end = start + ddays(duration),
+ start = as_datetime(ifelse(flag_StartActual==TRUE,start,lag(end)))
+ )
# A tibble: 3 x 4
start duration flag_StartActual end
<dttm> <dbl> <lgl> <dttm>
1 2018-07-11 00:00:00 10 TRUE 2018-07-21 00:00:00
2 2018-07-21 00:00:00 23 FALSE 2018-08-13 00:00:00
3 2018-08-13 00:00:00 9 FALSE NA
包括rowwise()
在下面的代码中不起作用:
schedule %>%
rowwise() %>%
mutate(
end = start + ddays(duration),
start = as_datetime(ifelse(flag_StartActual==TRUE,start,lag(end)))
)
无论如何,我有点卡住了,希望有人对如何解决这个问题有一些聪明的想法?