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

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

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)

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

您好，我是有问必答小助手，您的问题已经有小伙伴解答了，您看下是否解决，可以追评进行沟通哦~

如果有您比较满意的答案 / 帮您提供解决思路的答案，可以点击【采纳】按钮，给回答的小伙伴一些鼓励哦～～

ps:问答VIP仅需29元，即可享受5次/月 有问必答服务，了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632

非常感谢您使用有问必答服务，为了后续更快速的帮您解决问题，现诚邀您参与有问必答体验反馈。您的建议将会运用到我们的产品优化中，希望能得到您的支持与协助！

速戳参与调研>>>https://t.csdnimg.cn/Kf0y