highcharter не отображает все значения по оси x и hc_colorAxis не работает

Question

Я работаю с пакетом highcharter, чтобы красиво построить графики в R и внедрить их в Shiny. Я работаю с этими наборами данных https://www.kaggle.com/currie32/crimes-in-chicago и использую этот код:

library(dplyr)
library(highcharter)
library(xts)
library(tidyverse)

locationAnalysis <- cc %>% group_by(Location.Description) %>% summarise(Total = n()) %>% arrange(desc(Total))

crimetypeAnalysis <- cc %>% group_by(Primary.Type) %>% summarise(Total = n()) %>% arrange(desc(Total))

hchart(crimetypeAnalysis, "column", hcaes(x = Primary.Type, y = Total, color = Total)) %>%
  hc_title(text = "Crime Types") %>%
  hc_subtitle(text = "(2001 - 2016)") %>%
  hc_xAxis(title = list(text = "Type")) %>%
  hc_yAxis(title = list(text = "Crimes")) %>%
  hc_colorAxis(stops = color_stops(n = 10, colors = c("#d98880", "#85c1e9", "#82e0aa"))) %>%
  hc_add_theme(hc_theme_darkunica()) %>%
  hc_legend(enabled = FALSE)

Код работает нормально и сюжет выглядит отлично, но у меня 2 проблемы. Код должен отображать 36 типов преступлений на оси х, но здесь было показано только 18, почему? Вторая проблема: я не могу изменить цвет hc_colorAxis(stops = color_stops(n = 10, colors = c("#d98880", "#85c1e9", "#82e0aa"))), Это всегда берет начальный, который использовался первым, а не этот шестнадцатеричный код, который я имею в своем коде, почему? Надеюсь, кто-нибудь может мне помочь и спасибо заранее!