R语言 解决数据中的时间重复问题

[Arya-xtt]

我有一堆这样的数据：

其中date是日期，time是天数，每个ID都对应一个项目。
假设我统计一个月的水电费用是1w，但是这一个月期间都好多项目是一起做了，怎么样算出每个项目占用的水电费是多少。
如：项目1是2015/6/1，天数是3天，项目2是2015/6/3，天数是2天；
则项目1：6.1 6.2 6.3
项目2：6.3 6.4
则水电费是计算4天的水电费，每天是0.25w，
则项目1的水电费为：0.25*2+0.25/2=0.625w
项目2的水电费为：0.25+0.25/2=0.375w

我目前想到的算法是这样的，但是不知道怎么用R语言编出来，求大神指点。
如果有更好的解决方法也可以告知。