我想创建一个名为 day 的列,基于每两个班次一天最多 150 天。
shif day 1 1 1 2 1 1 3 2 1 4 2 1 5 1 2 6 1 2 7 2 2 8 2 2 9 1 3 10 1 3 11 2 3 12 2 3
`
我正在尝试这个。 df_<- data.frame(shift=rep(1:2,each=8,time=2)) x3 = df_ %>% 变异(天= case_when( row_number() == 1 ~ 0, df_==滞后(df_)〜1, 真~2
))
但结果不成功。
轮班日 1 1 0 2 1 1 3 1 1 4 1 1 5 1 1 6 1 1 7 1 1 8 1 1 9 2 2 10 2 1 11 2 1 12 2 1 13 2 1 14 2 1 15 2 1 16 2 1 17 1 2 18 1 1 19 1 1 20 1 1 21 1 1 22 1 1 23 1 1 24 1 1 25 2 2