与间隔天添加一列以一系列的临时数据

Question

假如我有一个数据帧DF：

df <- read.table(header=T, text=' 
      Date    
      03/12/2007 
      02/01/2008 
      01/02/2008 
      02/03/2008 
      ') 

library(lubridate) 
df$Date = as_date(dmy(df$Date)) 

我怎么能每行间隔增加一列？ （03/12/2007设置为开始时间） 的愿望输出表会是这样的：

 Date  d 
     03/12/2007 0 
     02/01/2008 30 
     01/02/2008 60 
     02/03/2008 90 

谢谢！

Answer 1

df$d <- df$Date - min(df$Date) 

这不需要日期以升序排列。

Answer 2

也许一个解决方法可以是：

df %>% mutate(dx=c(0, cumsum(as.numeric(diff(Date)))))