highchart想根据不同地州显示地图失败（R)，附上代码求解

Question

 

请问一下我想在地图上根据各州的数量显示不同的颜色，但是我的图出来像下面那样只有澳大利亚整体地图并没有按不同的州显示，附上数据和图还有代码，有大佬知道怎么改吗，求问。

 

 

library(jsonlite)
library(geojsonio)
library(highcharter)

 

dtstates1 <- read_csv('states_homeless1.csv')

ausgeojson <- GET("https://raw.githubusercontent.com/johan/world.geo.json/master/countries/AUS.geo.json") %>%
  content() %>%
  fromJSON(simplifyVector = FALSE) %>%
  as.json()

names(dtstates1) <- c("hc-key", "value")
knitr::kable(head(dtstates1))

highchart(type = "map") %>%
  hc_title(text = "Homeless in Australia ") %>%
  hc_subtitle(text = "Homeless in Australia") %>%
  hc_add_series(mapData =ausgeojson, 
                showInLegend = TRUE,
                data = dtstates1,
                    name = "region",
                    value = "value",
                    joinBy = c("hc-key", "value")) %>%
  hc_mapNavigation(enabled = TRUE)%>% 
  hc_colorAxis(auxpar = NULL)

 

 

    

Answer 1

【颜色分区 | Highcharts】https://www.highcharts.com.cn/demo/highmaps/category-map