r语言日期数据逐项相减

Question

有一列日期，然后我需要用后一个减前一个的结果，想问问怎么实现

Answer 1

自定义了个表格，date列是日期，用diff函数

> date <- read.csv("~/Desktop/date.csv")
> head(date)
  id      date
1  1  2022/2/4
2  2  2022/2/9
3  3 2022/2/11
4  4 2022/2/15
5  5 2022/2/18
6  6 2022/2/21
> date1 <- as.Date(unlist(date$date))
> # 计算每个相邻元素的差值
> diffs <- diff(as.Date(unlist(date$date)))
> # 输出结果
> diffs
Time differences in days
[1] 5 2 4 3 3 3 1 3 1