组在r中更改时的时间差异

library(dplyr)

# 创建一个包含时间序列数据的数据框
df <- data.frame(group = c("A", "A", "B", "B"),
                 time = c("2022-01-01", "2022-01-02", "2022-01-01", "2022-01-03"))

# 将数据按照组进行分组，并计算时间差异
df <- df %>%
  group_by(group) %>%
  mutate(time_diff = as.Date(time) - lag(as.Date(time)))

library(data.table)

# 创建一个包含时间序列数据的数据表
dt <- data.table(group = c("A", "A", "B", "B"),
                 time = c("2022-01-01", "2022-01-02", "2022-01-01", "2022-01-03"))

# 将数据按照组进行分组，并计算时间差异
dt[, time_diff := as.Date(time) - shift(as.Date(time)), by = group]

# 创建一个包含时间序列数据的数据框
df <- data.frame(group = c("A", "A", "B", "B"),
                 time = c("2022-01-01", "2022-01-02", "2022-01-01", "2022-01-03"))

# 将数据按照组进行分割，并计算时间差异
df$time_diff <- unlist(lapply(split(df$time, df$group), function(x) as.Date(x) - c(NA, head(as.Date(x), -1))))