Product Anomaly Detection

campaigns <- read_csv("campaigns.csv")

campaigns %>% filter(code == "WEAU") %>%
  group_by(date) %>%
  summarize(across(where(is.numeric), sum)) %>%
  filter(date >= today()-90 & date < today()-1) %>%
  hchart("areaspline", hcaes(date, cost))