有一列日期，然后我需要用后一个减前一个的结果，想问问怎么实现
自定义了个表格，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