Как построить показатель числа арестов (%) для 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.Вы сказали ему поставить Итого по оси 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 или как там у вас есть имя столбца оценки.