Problema
Queremos representar una serie temporal como un mapa de calor en forma de calendario.
Solución
Ejecutamos el código de Paul Bleicher para crear la función calendarHeat. Hacemos alguna edición menor para poner el título y los días de la semana en castellano.
# Creamos una serie temporal aleatoria para tres años.
library(dplyr)
set.seed(2015)
df <-
data.frame(fechas = sample(seq(
as.Date('2017-01-01'),
as.Date('2019-12-31'),
by = "day"
), 1000))
df <- df %>% mutate(sesiones = floor(runif(nrow(.), 1, 101)) )
# Creamos dos gráficos con dos paletas de colores diferentes.
calendarHeat(df$fechas, df$sesiones, varname = "Sesiones")
calendarHeat(df$fechas, df$sesiones, varname = "Sesiones", ncolors = 99, color = "r2b" )
Resultados
Entradas relacionadas
No hay comentarios:
Publicar un comentario