categories<-c("1CDC","2CDC","3CDC","4CDC","5CDC","6CDC","7CDC","8CDC","9CDC","10CDC","11CDC","12CDC","13CDC","14CDC","15CDC","16CDC")

series <- list(
  list(
    name = "improvido",
    data = list(
      sequence = c(27, 111),
      sequence = c(169, 130),
      sequence = c(222, 268),
      sequence = c(566, 511),
      sequence = 577,
      sequence = 533,
      sequence = c(252, 656),
      sequence = 661,
      sequence = c(14, 706),
      sequence = c(116, 436),
      sequence = c(68, 48),
      sequence = c(92, 153),
      sequence = 141,
      sequence = 123,
      sequence = 68,
      sequence = c(138, 331)
    ),
    type = "column"
  ),
  list(
    name = "provido",
    data = list(
      sequence = c(52, 195),
      sequence = c(192, 212),
      sequence = c(95, 99),
      sequence = c(130, 134),
      sequence = 265,
      sequence = 199,
      sequence = c(134, 346),
      sequence = 365,
      sequence = c(14, 304),
      sequence = c(87, 467),
      sequence = c(55, 50),
      sequence = c(151, 294),
      sequence = 184,
      sequence = 146,
      sequence = 51,
      sequence = c(237, 504)
    ),
    type = "column"
  )
)

highchart() %>%
  hc_xAxis(categories = categories) %>%
  hc_add_series_list(series) %>%
  hc_plotOptions(column=list(stacking="normal",
                             dataLabels=list(enabled=TRUE))) %>%
  hc_motion(enabled=TRUE,
            series=c(0,1),
            startIndex = 0,
            labels=c("janeiro","fevereiro"),
            axisLabel="mês")