我有一个政策数据框,就像下面这个:
df<-data.frame(start=as.Date(c("2012-1-1","2012-3-1","2012-3-15")),end=as.Date(c("2012-12-31","2012-8-31","2012-12-31")),
premium=c(500,200,300))
df
start end premium
1 2012-01-01 2012-12-31 500
2 2012-03-01 2012-08-31 200
3 2012-03-15 2012-12-31 300
我想用ggplot在2012-01-01和2012-03-15之间按天绘制总赚取保费的图表。
为了了解赚取的保费,以2012年第一天为例。只有一项保单有效,该保单的总保费为500元,跨越365天,因此1/1/12当天赚取的保费为500/365。同样地,3/1/12当天赚取的保费将是500/365+200/183,因为保单1和保单2都有效。
那么,我如何将2012年所有日期的每日赚得保费绘制成图表呢?