嗨，我有這個資料框，其中包含醫療保健服務的開始和結束日期。它看起來像這樣：
id <- c("A", "B", "B", "C", "D")
start_date <- c("2014-08-18", "2014-08-04", "2016-10-10", "2016-04-01", "2015-12-31")
end_date <- c("2018-09-01", "2019-09-22", "2016-10-18", "2016-05-01", "2016-04-08")
df <- data.frame(id, start_date, end_date)
id start_date end_date
1 A 2014-08-18 2018-09-01
2 B 2014-08-04 2019-09-22
3 B 2016-10-10 2016-10-18
4 C 2016-04-01 2016-05-01
5 D 2015-12-31 2016-04-08
ID 不是唯一的，因為人們可能同時擁有多項服務。這些服務可能跨越多年。但是，我想計算 2016 財政年度內每項服務的周數，該財政年度從2016-04-01開始，到2017-03-31結束。我想要的資料框是：
id start_date end_date wks_FY16
1 A 2014-08-18 2018-09-01 52
2 B 2014-08-04 2019-09-22 52
3 B 2016-10-10 2016-10-18 1
4 C 2016-04-01 2016-05-01 4
5 D 2015-12-31 2016-04-08 1
其中“wks_FY16”代表 2016 財年。
我認為difftime應該有用，但我不知道如何指定我需要的時間段。我將非常感謝您在這方面的幫助。
uj5u.com熱心網友回復：
difftime在對“2016”年進行更正后，我們得到了“周”的差異
library(dplyr)
df %>%
mutate(across(start_date:end_date, as.Date),
wks_FY16 = as.integer(difftime(pmin(end_date,
as.Date('2017-03-31')), pmax(as.Date('2016-04-01'),
start_date), units = "weeks")))
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/453445.html