基于Emaps包的中国省市级地图

library(REmap)
head(chinaIphone)
chinaIphone
remapC(chinaIphone)

mapNames("河南")
set.seed(123)
henan = data.frame(country = mapNames("河南"), value = sample(17))
remapC(henan, maptype = "河南",color = "skyblue")

park = read.csv('park_result.csv')
geodata = data.frame(park$lon, park$lat, park$park)

pointData = data.frame(park$park, color = 'red')


remapC(henan, maptype = "河南",color = "skyblue",
       markPointData = pointData,
       markPointTheme = markPointControl(symbol = "pin",
                                         symbolSize = 5,
                                         effect = F),
       geoData = geodata)