dates <- seq.Date(as.Date("2017-01-01"), as.Date("2019-12-31"), by = "day")
values <- rnorm(length(dates), 20, 6)
year <- data.frame(date = dates, values = values)
year |>
e_charts(date) |>
e_calendar(range = "2017") |>
e_visual_map(max = 30) |>
e_heatmap(values, coord_system = "calendar")
# month
year |>
e_charts(date) |>
e_calendar(range = "2017-01") |>
e_visual_map(max = 30) |>
e_heatmap(values, coord_system = "calendar")
# range
year |>
e_charts(date) |>
e_calendar(range = c("2018-01", "2018-07")) |>
e_visual_map(max = 30) |>
e_heatmap(values, coord_system = "calendar")
Run the code above in your browser using DataLab