我有一个数据框，每行都有开始日期和结束日期。我想计算两个日期之间的天数并按年份分割。所以从这里开始：
id <- c(1,2,3)
start <- as.Date(c('01/01/2015','01/01/2016','07/01/2015'), format = '%m/%d/%Y')
end <- as.Date(c('12/31/2016','12/31/2016','12/31/2016'), format = '%m/%d/%Y')
df <- data.frame(id, start, end)
| ID | 开始 | 结尾 |
|---|---|---|
| 1 | 2015年1月1日 | 2016年12月31日 |
| 2 | 2016年1月1日 | 2016年12月31日 |
| 3 | 2015年1月7日 | 2016年12月31日 |
对此：
| ID | 开始 | 结尾 | 天_号。 | 2015年 | 2016年 |
|---|---|---|---|---|---|
| 1 | 2015年1月1日 | 2016年12月31日 | 第730章 | 365 | 365 |
| 2 | 2016年1月1日 | 2016年12月31日 | 365 | 0 | 365 |
| 3 | 2015年7月1日 | 2016年12月31日 | 第548章 | 183 | 365 |
感谢任何帮助，请注意我想动态计算年度统计数据，在我的实际案例中我可能会得到很多年的列...我猜 lubridate 可能会有所帮助，但我不确定从哪里开始。