在data.table中删除每个组的第一个日历月

setkey(data, group)

library(lubridate)
data[, first_month := floor_date(min(date), "month"), by = group]

data <- data[date != first_month, ]

library(data.table)
library(lubridate)

# 1. 分组
setkey(data, group)

# 2. 找到每个组的第一个日历月
data[, first_month := floor_date(min(date), "month"), by = group]

# 3. 删除每个组的第一个日历月的数据
data <- data[date != first_month, ]