Как построить показатель числа арестов (%) для 20 самых популярных типов преступлений (преступления из набора данных Чикаго)?

Question

Я работаю с R в RStudio и хотел бы построить через пакет highchart графику, которая включает в себя по оси X тип преступления и по оси Y уровень арестов в%. Таким образом, чтобы увидеть, по какому типу преступления был произведен высший арест. Я работаю со следующим кодом в блестящем, который работает, но не строит, что именно я хочу:

output$top20arrestCrime <- renderHighchart({
  arrestCrimeAnalysis <- cc %>% 
    group_by(Primary.Type, Arrest == TRUE) %>% 
    summarise(Total = n()) %>% 
    arrange(desc(Total))

  hchart(arrestCrimeAnalysis, "column", hcaes(x = Primary.Type, y = Total, color = Total)) %>%
    hc_exporting(enabled = TRUE, filename = "Top_20_Locations") %>%
    hc_title(text = "Top 20 Crime Types") %>%
    hc_subtitle(text = "(2001 - 2016)") %>%
    hc_xAxis(title = list(text = "Crime Type"), labels = list(rotation = -90)) %>%
    hc_yAxis(title = list(text = "Arrest Rate %")) %>%
    hc_colorAxis(stops = color_stops(n = 10, colors = c("#d98880", "#85c1e9", "#82e0aa"))) %>%
    hc_add_theme(hc_theme_smpl()) %>%
    hc_legend(enabled = FALSE)
})

Я работаю с этим набором данных: https://www.kaggle.com/currie32/crimes-in-chicago.

когда я запускаю код, он просто показывает по оси X тип преступления (например, THEFT, ROBERRY) и т. д., что правильно, а по оси Y - сумма краж, например, за 2001-2016 годы. Но я хочу, чтобы по оси ординат был зафиксирован процент арестов, поэтому сколько было арестов. и это в харчере с топ-20 видов преступлений арестов.

Пример скриншота приложения Shiny

Answer 1

Ваша проблема в том, что вы не сказали старшему чартеру выставить частоту арестов по оси Y. Вы сказали, что нужно поместить Total на ось y:

arrestCrimeAnalysis <- cc %>% 
    group_by(Primary.Type, Arrest == TRUE) %>% 
    summarise(Total = n()) %>% 
    arrange(desc(Total))
hchart(arrestCrimeAnalysis, "column", hcaes(x = Primary.Type, y = Total, color = Total))

+ Изменить y = Total в y = ArrestRate или как бы ни назывался ваш столбец оценки.