更改choropleth hcmap中的标签

我有以下数据集：

    structure(list(code = structure(1:6, .Label = c("?elino", "?tip", 
"?uto Orizari", "Aerodrom", "Aracinovo", "Berovo", "Bitola", 
"Bogdanci", "Bogovinje", "Bosilovo", "Brod", "Brvenica", "Butel", 
"Ca?ka", "Cair", "Ce?inovo-Oble?evo", "Centar", "Centar ?upa", 
"Cucer Sandevo", "Debar", "Debarca", "Delcevo", "Demir Hisar", 
"Demir Kapija", "Dojran", "Dolneni", "Drugovo", "Gazi Baba", 
"Gjorce Petrov", "Gostivar", "Gradsko", "Ilinden", "Jegunovce", 
"Karbinci", "Karpo?", "Kavadartsi", "Kicevo", "Kisela Voda", 
"Kocani", "Konce", "Kratovo", "Kriva Palanka", "Krivoga?tani", 
"Kru?evo", "Kumanovo", "Lipkovo", "Lozovo", "Makedonska Kamenica", 
"Mavrovo and Rostusa", "Negotino", "Northeastern", "Novatsi", 
"Novo Selo", "Ohrid", "Oslomej", "Pelagonia", "Phecevo", "Plasnica", 
"Polog", "Prilep", "Probistip", "Radovis", "Rankovce", "Resen", 
"Saraj", "Skopje", "Sopiste", "Southeastern", "Struga", "Studenicani", 
"Sveti Nikole", "Tearce", "Tetovo", "Valandovo", "Vardar", "Vasilevo", 
"Veles", "Vev?ani", "Vinitsa", "Vrane?tica", "Zajas", "Zelenikovo", 
"Zrnovci"), class = "factor"), value = c(48L, 1810L, 205L, 1507L, 
38L, 66L), OPSTINA_NAZIV = c("ЖЕЛИНО", "ШТИП", "ШУТО ОРИЗАРИ", 
"АЕРОДРОМ", "АРАЧИНОВО", "БЕРОВО"), `postal-code` = c("ZE", "ST", 
"SO", "AD", "AR", "BR")), .Names = c("code", "value", "OPSTINA_NAZIV", 
"postal-code"), row.names = c(NA, 6L), class = "data.frame")

我正在用下面的hcmap函数绘制一张choropleth地图：

hcmap("countries/mk/mk-all.js", data = data_fake,
      name = "Manucipalities", value = "value", joinBy = c("name", "code"),
      borderColor = "transparent") %>%
  hc_colorAxis(dataClasses = color_classes(c(seq(0, 2000, by = 500), 13000))) %>% 
  hc_legend(layout = "vertical", align = "right",
            floating = TRUE, valueDecimals = 0, valueSuffix = "")  %>%
hc_mapNavigation(enabled = TRUE)

但是，目前地图上出现的标签来自“code”变量，其中包含编码问题。我想画出“OPSTINA_NAZIV”标签上的标签

你知道我该怎么做吗

我试过：

  dataLabels = list(enabled = TRUE, format = '{point.OPSTINA_NAZIV}')

---

但是没有成功

您可以使用

选项

访问

地图数据

信息。示例

{point.options.OPSTINA_NAZIV}

：

hcmap("countries/mk/mk-all.js", data = data_fake,
      name = "Manucipalities", value = "value", joinBy = c("name", "code"),
      borderColor = "transparent" ,
      dataLabels = list(enabled = TRUE, format = "{point.options.OPSTINA_NAZIV}"))