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\")
图片[1]-leaflet包绘制地图以及打点—科研工具箱-叨客学习资料网
图片[2]-leaflet包绘制地图以及打点—科研工具箱-叨客学习资料网
局部放大之后效果

更多设置参考:

R语言在线地图神器:Leaflet for R包(三) 符号标记_微信公众号:虾神说D-CSDN博客_r语言leaflet包

© 版权声明
THE END
喜欢就支持一下吧
点赞0 分享
评论 抢沙发
头像
请输入有效评论哦,肆意灌水或者乱打评论是不会通过的,会影响您评论后获得资源哦~~
提交
头像

昵称

取消
昵称表情

    暂无评论内容