chaor标签在choropleth hcmap

时间:2017-08-01 15:50:41

标签: r highcharts

我有以下数据集:

    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函数绘制一个等值区域地图:

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)

但是,目前地图上显示的标签来自"代码"变量,包含编码问题。我想绘制来自" OPSTINA_NAZIV"的标签。标签。

我有什么想法可以做到这一点?

我试过了:

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

但它没有成功。

1 个答案:

答案 0 :(得分:1)

您可以使用mapData访问者访问options信息。示例{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}"))

mapchart