R 计数周数据-复制、转换和百分比聚合

我需要将一些数据从特定的起始日期和结束日期转换为工作日或天数计数

示例：代码表

structure(list(year.month = structure(c(1L, 2L, 2L, 2L, 2L), .Label = c("2016-05", 
"2016-08"), class = "factor"), id = 1:5, begin = structure(c(2L, 
1L, 3L, 5L, 4L), .Label = c("02/07/2016", "13/04/2016", "24/07/2016", 
"25/07/2016", "30/06/2016"), class = "factor"), end = structure(c(1L, 
2L, 2L, 2L, 2L), .Label = c("01/05/2016", "01/08/2016"), class = "factor"), 
    value = c(4L, 7L, 3L, 4L, 6L)), .Names = c("year.month", 
"id", "begin", "end", "value"), class = "data.frame", row.names = c(NA, 
-5L))

对于每一行，我需要计算特定开始和结束时间内的周数。这样，开始日期13-04和结束日期01-05在11-04、18-04和25-04开始的几周之间经过，每一周都有不同的贡献，第一个是5天（星期三），第二个是7天（星期一），第三个是7天（星期一）

对于每个星期，我还需要计算天数占id总周期的百分比

我成功地做到了这一点，但只为每一行创建了一个循环（使用strftime和as.POSIXlt），对于一个大数据集来说，这个过程非常慢（几个小时）。是否有其他方法可以通过矩阵命令或一次转换整个数据来实现这一点