April 28, 2020

highchart() %>%
  hc_title(text = "Number of Armed Forces Personnel, Total (2017)") %>%
  hc_subtitle(text = "Interactive Map, uploaded 28 April 2020") %>%
  hc_add_series_map(worldgeojson, jumlahTentara, value = "terbaru", joinBy = "iso3") %>%
  hc_colorAxis(minColor = "#ffffff",
               maxColor = "#ff0000")%>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_tooltip(useHTML = TRUE, headerFormat = "",
    pointFormat = "{point.Country Name}: {point.terbaru:.0f}") %>%
  hc_add_theme(hc_theme_google())

```