12.2 日历图

airquality %>%
  transform(date = seq.Date(
    from = as.Date("1973-05-01"),
    to = as.Date("1973-09-30"), by = "day"
  )) %>%
  e_charts(date) %>% 
  e_calendar(range = "1973") %>% 
  e_heatmap(Temp, coord_system = "calendar") %>% 
  e_visual_map(max = max(airquality$Temp)) %>% 
  e_title("Calendar", "Heatmap")
library(shiny)