绘图杂记20R语言绘制热力地图

Posted 2022-01-18 卖山楂啦prss

一、R语言——hchinamap包绘制地图

安装

install.packages('dplyr')
install.packages('magrittr')
install.packages('hchinamap')

调用

library(hchinamap)
library(magrittr)
library(dplyr)

绘制地图

# 加载数据
dir <- tempdir()
download.file('https://mdniceczx.oss-cn-beijing.aliyuncs.com/chinadf.rda', file.path(dir, 'chinadf.rda'))
load(file.path(dir, 'chinadf.rda'), verbose = TRUE)
chinadf
head(chinadf)
# 筛选数据
china <- chinadf %>% dplyr::filter(region == "China")
# 绘制地图
hchinamap(
          name = china$name, 
          value = china$value,
          width = "100%", 
          height = "500px",
          title = "China地图", 
          region = "China",
	      minColor = "#FFEFD5",
          maxColor = "#FF3030")

绘制地级市地图

# 取数据
Chongqing <- chinadf %>% dplyr::filter(region == "Chongqing")
hchinamap(
          name = Chongqing$name, 
          value = Chongqing$value,
          width = "100%", 
          height = "500px",
          title = "Map of Chongqing", 
          region = "Chongqing",
	    minColor = "#FFF5EE",
          maxColor = "#A8A8A8")

参考：
https://cran.r-project.org/web/packages/hchinamap/vignettes/hchinamap.html
https://mp.weixin.qq.com/s/QDImD7zP49bCliI5l7Lj3g

dir <- system.file("examples", "hchinamap", package = "hchinamap")
setwd(dir)
install.packages('colourpicker')
install.packages('shiny')
shiny::shinyAppDir(".")

二、R语言——highcharter包绘制地图

引自：https://zhuanlan.zhihu.com/p/42430990

安装

install.packages('highcharter')
install.packages('jsonlite')
install.packages('tidyverse')

加载

library(highcharter)
library(jsonlite)
library(tidyverse)
library(magrittr)

# 加载数据
readLines("https://data.jianshukeji.com/jsonp?filename=geochina/chongqing.json", warn = F) %>% 
  str_match(string = ., pattern = "\\\\((.*)\\\\)") -> text
dir <- tempdir()
download.file('https://mdniceczx.oss-cn-beijing.aliyuncs.com/chinadf.rda', file.path(dir, 'chinadf.rda'))
load(file.path(dir, 'chinadf.rda'), verbose = TRUE)
chinadf
# 筛选数据
chongqing <- chinadf %>% dplyr::filter(region == "Chongqing")
chongqing

数据集

# A tibble: 38 x 3
   region    name     value
   <chr>     <chr>    <dbl>
 1 Chongqing 万州区      49
 2 Chongqing 涪陵区      61
 3 Chongqing 渝中区      89
 4 Chongqing 大渡口区    59
 5 Chongqing 江北区      58
 6 Chongqing 沙坪坝区    86
 7 Chongqing 九龙坡区    67
 8 Chongqing 南岸区      22
 9 Chongqing 北碚区      80
10 Chongqing 綦江区       8
# ... with 28 more rows

cq <- fromJSON(text[1, 2], simplifyVector = FALSE)
highchart(type = "map") %>% 
hc_add_series_map(map = cq ,
                    df = chongqing, 
                    joinBy = "name", 
                    value = "value",
                    borderWidth = 0.5,
                    borderColor = "gray",
                    states = list(hover = list(color = '#bada55')),
                    dataLabels = list(enabled = FALSE),
                    marginBottom = "200px")

不知道啥原因…没颜色，试了好久都没做出来，拉胯了

算了

有兴趣的参考：https://mp.weixin.qq.com/s/QDImD7zP49bCliI5l7Lj3g