地区人口数 city.xlsx
下载链接: https://pan.baidu.com/s/1TEMtydV0nhu_R_OVc5Cl9w
提取码: kg9n
# city_level --------------------------------------------------------------
install.packages("hchinamap")
install.packages("readxl")
install.packages("dplyr")
library(hchinamap)
library(readxl)
library(dplyr)
#https://htmlcolorcodes.com
#导入地图chinadf
dir <- tempdir()
download.file('https://czxb.github.io/br/chinadf.rda',
file.path(dir, 'chinadf.rda'))
load(file.path(dir, 'chinadf.rda'), verbose = TRUE)
# 导入地区人口数
# city.xlsx必须放在当前工作路径下;否则需要在read_excel("population.xls”)的双引号中写明文件路径
city <- read_excel("city.xlsx")
# 筛选广东地区
gd <- chinadf %>% filter(region == "Guangdong")
#合并数据
data <- merge(gd, city, by = "name")
hchinamap(name = data$name,
value = data$population,
region = "Guangdong",
itermName = "常住人口",
title = "2022年广东省各地区常住人口(万人)",
minColor = "#83E7F7",
maxColor = "#074D66",
legendLayout = "vertical",
legendAlign = "left",
legendVerticalAlign = "top",
hoverColor = "#a4edba"
)
# 筛选福建地区
fj <- chinadf %>% filter(region == "Fujian")
#合并数据
data <- merge(fj, city, by = "name")
hchinamap(name = data$name,
value = data$population,
region = "Fujian",
itermName = "常住人口",
title = "2022年福建省各地区常住人口(万人)",
minColor = "#99FBC3",
maxColor = "#037A35",
legendLayout = "vertical",
legendAlign = "left",
legendVerticalAlign = "top",
hoverColor = "#07F8DB"
)
# 筛选浙江地区
zj <- chinadf %>% filter(region == "Zhejiang")
#合并数据
data <- merge(zj, city, by = "name")
hchinamap(name = data$name,
value = data$population,
region = "Zhejiang",
itermName = "常住人口",
title = "2022年浙江省各地区常住人口(万人)",
minColor = "#DDA9F5",
maxColor = "#660693",
legendLayout = "vertical",
legendAlign = "left",
legendVerticalAlign = "top",
hoverColor = "#07F8DB"
)