Highcharter绘制中国地图

青旅半醒 2022-02-26 15:11 531阅读 0赞

刚发现segmantfault不支持iframe，绘图效果可以在这"[Highcharter绘制中国地图][Highcharter]"查看。

# Highmaps数据 #

在[Highmaps data][]上可以获取Highmaps的全部数据列表，其中关于中国的数据有三条。中国(只包括中国大陆)、中国(中国大陆、香港、澳门)、中国(中国大陆、香港、澳门、台湾)。如果统计中国数据，我们当然是只用第三条数据。

Highmaps数据分为json和js，都可以回来绘制Highmaps。

## json数据 ##

Chinajson_file <- "data/Highmaps-data/cn-all-sar-taiwan.geo.json"
    Chinajson <- jsonlite::fromJSON(Chinajson_file, simplifyVector = FALSE)
    Chinajson <- geojsonio::as.json(Chinajson)

## js数据 ##

Chinajs_file <- "data/Highmaps-data/cn-all-sar-taiwan.js"
    Chinajs <- readLines(Chinajs_file, warn = FALSE, encoding = "UTF-8")
    Chinajs[1] <- gsub(".* = ", "", Chinajs[1])
    Chinajs <- paste(Chinajs, collapse = "\n")
    Chinajs <- jsonlite::fromJSON(Chinajs, simplifyVector = FALSE)

## 演示数据 ##

n <- 20
    z <-  sample(1:n)
    sequences <- purrr::map2(1:n, z, function(x, y){ ifelse(x == 1:n, y, 0) })
    df <- data.frame(
      lat = runif(n, 20, 45),
      lon = runif(n, 80, 120),
      z = z,
      color = colorize(z),
      sequence = sequences
    )
    
    hp_df <- read.csv("data/Highmaps-data/map_example.csv", stringsAsFactors = FALSE)
    names(hp_df) <- c("hc-key", "value")
    knitr::kable(head(hp_df))

# 地图 #

## 点图 ##

highchart(type = "map") %>%
      hc_add_series(mapData = Chinajson, showInLegend = FALSE) %>%
      hc_add_series(
        data = df, type = "mappoint",
        dataLabels = list(enabled = FALSE),
        name = "演示数据")

## 气泡图 ##

highchart(type = "map") %>%
      hc_add_series(mapData = Chinajson, showInLegend = FALSE) %>%
      hc_add_series(
        data = df, type = "mapbubble",
        minSize = 0, maxSize = 30,
        dataLabels = list(enabled = FALSE),
        name = "演示数据")

## 地区分布 ##

通过js数据绘制

## js地图数据需要跟展示的数据一起通过hc_add_series导入
    highchart(type = "map") %>%
      hc_add_series(
        mapData = Chinajs, showInLegend = TRUE, name = "演示数据",
        data = hp_df, joinBy = "hc-key") %>% 
      hc_colorAxis(auxpar = NULL)

通过json数据绘制

highchart(type = "map") %>%
      hc_add_series(
        mapData = Chinajson, showInLegend = FALSE, name = "演示数据",
        data = hp_df, joinBy = "hc-key") %>% 
      hc_colorAxis(auxpar = NULL)

# 地图汉化 #

name_cn <- read.csv("data/Highmaps-data/name_cn.csv",stringsAsFactors = FALSE)
    
    Chinajs_chinese_file <- "data/Highmaps-data/cn-all-sar-taiwan_chinese.js"
    Chinajs_chinese <- readLines(Chinajs_chinese_file, warn = FALSE, encoding = "UTF-8")
    Chinajs_chinese[1] <- gsub(".* = ", "", Chinajs_chinese[1])
    Chinajs_chinese <- paste(Chinajs_chinese, collapse = "\n")
    Chinajs_chinese <- jsonlite::fromJSON(Chinajs_chinese, simplifyVector = FALSE)
    
    highchart(type = "map") %>%
      hc_add_series(
        mapData = Chinajs_chinese, showInLegend = TRUE, name = "演示数据",
        data = hp_df, joinBy = "hc-key") %>% 
      hc_colorAxis(auxpar = NULL)

# 参考 #

*  [Highcharts JS Options Reference][]
 *  [Highmaps data][]
 *  [highcharter][]
 *  [Thinking in highcharter - How to build any Highcharts plot in R][]
 *  [Select option export in hc\_exporting() ][Select option export in hc_exporting_]

[Highcharter]: https://jeevanyue.github.io/post/2018-01-15-highcharter-china-map/
[Highmaps data]: https://code.highcharts.com/mapdata/
[https_jeevanyue.github.io_p...]: https://jeevanyue.github.io/post/2018-01-15-highcharter-china-map_files/figure-html/mappoint.html&quot
[https_jeevanyue.github.io_p... 1]: https://jeevanyue.github.io/post/2018-01-15-highcharter-china-map_files/figure-html/mapbubble.html&quot
[https_jeevanyue.github.io_p... 2]: https://jeevanyue.github.io/post/2018-01-15-highcharter-china-map_files/figure-html/heatmap.html&quot
[https_jeevanyue.github.io_p... 3]: https://jeevanyue.github.io/post/2018-01-15-highcharter-china-map_files/figure-html/heatmap_cn.html&quot
[Highcharts JS Options Reference]: https://api.highcharts.com/highcharts/
[highcharter]: http://jkunst.com/highcharter/index.html
[Thinking in highcharter - How to build any Highcharts plot in R]: https://dantonnoriega.github.io/ultinomics.org/post/2017-04-05-highcharter-explainer.html
[Select option export in hc_exporting_]: https://github.com/jbkunst/highcharter/issues/331