inst/ACORN-app/www/R/output/profile_sex.R

In ocelhay/ACORN: App for the exploration of ACORN data

output$profile_sex <- renderHighchart({
  req(patient_filter())
  req(nrow(patient_filter()) > 0)
  
  df <- patient_filter() %>%
    mutate(sex = replace_na(sex, "Unknown")) %>%
    count(sex) %>%
    arrange(n) %>%
    mutate(freq = round(100*n / sum(n)), color = NA)
  
  df$color[df$sex == "Male"] <- "#1f78b4"
  df$color[df$sex == "Female"] <- "#33a02c"
  df$color[df$sex == "Unknown"] <- "#969696"
  
  df %>%
    hchart(type = "column", hcaes(x = sex, y = n, color = color)) %>%
    hc_yAxis(title = "") %>%
    hc_xAxis(title = "") %>%
    hc_tooltip(headerFormat = "", pointFormat = "{point.n} patients ({point.freq} %)") %>%
    hc_exporting(enabled = TRUE, buttons = list(contextButton = list(menuItems = hc_export_kind)))
})