是否有按月拆分数据的R函数？

# 创建一个包含日期和数值的数据框
data <- data.frame(
  date = seq(as.Date("2022-01-01"), as.Date("2022-12-31"), by = "day"),
  value = rnorm(365)
)

# 按月拆分数据
split_data <- split(data, format(data$date, "%Y-%m"))

# 输出每个月份的数据
for (month in names(split_data)) {
  print(paste("Month:", month))
  print(split_data[[month]])
}