leaflet包绘制地图以及打点—科研工具箱-叨客学习资料网

请关注公众号【叨客学习资料】在使用网站的过程中有疑问，请来公众号进行反馈哦

library(leaflet)
library(leafletCN)


region=regionNames(\"苏州\")
dat = data.frame(region,runif(length(region)))
dat <- edit(dat)
map = leafletGeo(\"苏州\", dat)
dh<-read.delim(\"I:/地图/坐标.txt\")
####dh文件包含地点，地点坐标（即经纬度XY），还有相关设置标记大小的列
cPal <- colorNumeric(palette = c(\"blue\",\"red\"),domain = dh$地区)
  
  
  #涂色环节
pal <- colorNumeric(
    palette = c(\"Blues\"),
    domain = map$value)
  

  
m<-leaflet(map) %>% amap() %>%
#加入框边界及颜色
addPolygons(stroke = TRUE,
                smoothFactor = 1,
                fillOpacity = 0.3,
                weight = 1,
                color = ~pal(value),
                popup = ~htmltools::htmlEscape(popup)
    )%>%addCircles(lng = dh$X,lat = dh$Y,weight=dh$地区*5,color = ~cPal(dh$地区))    %>%
      addLegend(\"bottomright\", pal = cPal, values = ~dh$地区,title = \"地点数\",opacity = 1) %>% addLabelOnlyMarkers(lng = dh$X,lat = dh$Y,\"00\")
saveWidget(m, \"I:/地图/temp.html\", selfcontained = FALSE)
webshot(\"temp.html\", file = \"Rplot.png\",
        cliprect = \"viewport\")

图片[2]-leaflet包绘制地图以及打点—科研工具箱-叨客学习资料网 — 局部放大之后效果

版权声明 1、本网站名称：叨客学习资料网
2、本站永久网址：https://www.leobba.cn
3、本网站的文章部分内容可能来源于网络，仅供大家学习与参考，如有侵权，请联系站长进行删除处理。
4、本站一切资源不代表本站立场，并不代表本站赞同其观点和对其真实性负责。
5、本站一律禁止以任何方式发布或转载任何违法的相关信息，访客发现请向站长举报
6、本站资源大多存储在云盘，如发现链接失效，请联系我们我们会第一时间更新。

THE END