R 地图

library(readxl)
library(tidyverse)
library(REmap)

data = data.frame(country = mapNames("world"),
                  value = 5*sample(178)+200)
out = remapC(data,maptype = "gansu",color = 'skyblue')
plot(out)


#数据
#city <- mapNames("gansu")
#value <- runif(21,min = 1,max = 100)
#构建数据框
#data_DF <- data.frame(city,value)

data_df <- read.csv('D:\\地图\\Report.csv')


#绘制填充地图
result <- remapC(data_df,
                 title ="甘肃省百日咳",
                 maptype = "gansu",
                 color = "red",
                 maxdata = 100,
                 mindata = 1)


library(leafletCN)
shi <- regionNames("甘肃省")
xian <- shi %>% map(regionNames) %>% unlist()
dat=data.frame(name = xian,value = runif(87))
regionNames("兰州市")
demomap("兰州市")


#dat = data.frame(name = regionNames("甘肃省"),value = runif(14))
geojsonMap(data_df,"甘肃")
geojsonMap(dat,"甘肃", palette = "Reds",legendTitle = "甘肃省")

library(leaflet)
leaflet() %>%
  addProviderTiles("Stamen.TonerLite") %>%
  geojsonMap(dat,"甘肃", palette = "Red")