如何获取R中分类频率的每日时间序列

install.packages("tidyverse")
install.packages("lubridate")

library(tidyverse)
library(lubridate)

data <- data.frame(
  date = c("2022-01-01", "2022-01-01", "2022-01-02", "2022-01-02", "2022-01-02"),
  category = c("A", "B", "A", "B", "C")
)

data$date <- as.Date(data$date)

result <- data %>%
  group_by(date, category) %>%
  summarize(frequency = n())

daily_result <- result %>%
  group_by(date) %>%
  summarize(total_frequency = sum(frequency))