setRepositories()#1

chooseCRANmirror()#2

ibrary(leaflet)#学习地址:http://rstudio.github.io/leaflet/markers.html
library(leafletCN)
library(sp)

#library(devtools)
#install_github('badbye/baidumap')

#library(REmap)
#library(RbaiduMaps)#
library(baidumap)
options(baidumap.key='mkn2zLugAMjfTHCzYBFGE03k1gHTW8Kj')#我的百度api密钥
#library("RJSONIO")

#读取数据
nzddata=read.csv('C:\\Users\\lenovo\\Desktop\\产业园\\01chanye.csv')
#根据地址过去经纬???
long_bat=getCoordinate(nzddata$address, formatted = T)
nzddata$long=as.vector(long_bat[,1])
nzddata$bat=as.vector(long_bat[,2])
#添加提示???
nzddata$产业园全称
nzddata$show=paste(
paste0('<div class="t" style="">
<h3><a href="',nzddata$cyy_url,'" target="_blank">',nzddata$产业园全称 ,'</a></h3>'),
paste0( '地址:',nzddata$address,'<br/>'),
paste0('主导产业:',nzddata$主导产业,'<img src="',nzddata$url_icon,'" weight="34px" height="34px"><br/>'),
paste0( '类型:',nzddata$类型,'<br/>'),
paste0( '资金使用方案:','<a href="',nzddata$money_plan_url,'">资金使用方案</a><br/>'),
paste0('种植面积:',nzddata$种植.万亩.,'(万亩)<br/>'),
paste0('计划总投资:',nzddata$计划总投资,'(万元)<br/>'),
paste0('产业园带动农民数::',nzddata$产业园带动农民数量.人.,'(人)<br/>'),
#paste0('一二三产业融合情况:',nzddata$一二三产业融合情况,'<br/>'),
paste('产业园实施主体:',nzddata$产业园牵头实施主体名,'<br/></div>')
)
#分类添加图标
#iconList 生成小框

iconList = awesomeIconList(
"蔬菜" = makeAwesomeIcon(icon = "glyphicon-eye-open",markerColor = "#01F1F3",text='蔬菜'),
"水稻" = makeAwesomeIcon(icon = "cutlery",markerColor = "green",text='水稻'),
"花卉" = makeAwesomeIcon(icon = "plus-sign",markerColor = "orange",text='花卉'),
"茶叶" = makeAwesomeIcon(icon = "globe",markerColor = "purple",text='茶叶'),
"香芋" = makeAwesomeIcon(markerColor = "darkpurple",text='香芋'),
"猕猴桃" = makeAwesomeIcon(markerColor = "deeppink",text='猕猴桃'),
"桃子" = makeAwesomeIcon(markerColor = "darkred",text='桃子'),
"柚子" = makeAwesomeIcon(markerColor = "cadetblue",text='柚子'),
"橙子" = makeAwesomeIcon(markerColor = "darkpurple",text='橙子'),
"萝卜" = makeAwesomeIcon(markerColor = "dodgerblue",text='萝卜'),
"鱼" = makeAwesomeIcon(markerColor = "pink",text='鱼'),
"家禽" = makeAwesomeIcon(markerColor = "blue",text='家禽'),
"药材" = makeAwesomeIcon(markerColor = "beige",text='药材'),
"菠萝" = makeAwesomeIcon(markerColor = "lightgray",text='菠萝'),
"火龙果" = makeAwesomeIcon(markerColor = "red",text='火龙果'),
"荔枝" = makeAwesomeIcon(markerColor = "orangered1",text='荔枝'),
"沉香" = makeAwesomeIcon(markerColor = "pink",text='沉香'),
"青梅" = makeAwesomeIcon(markerColor = "sienna",text='青梅'),
"土猪" = makeAwesomeIcon(markerColor = "black",text='土猪')
)

library(stringr)
nzddata$shi=str_sub(nzddata$产业园全称,1,3)#节选字符串
#每个小框框的坐标,经纬度
nzddata$shi1=nzddata$类型

leaflet(nzddata)%>% addProviderTiles("Thunderforest.SpinalMap")%>%addTiles()%>%addAwesomeMarkers(lng=~long,lat=~bat,icon = ~iconList[shi1],popup=~show,label=~产业园全称)
#addMarkers(lng=~long,lat=~lat,popup=~show,label=~dth_title)%>%

#涂色
region=regionNames("china")#找下级省-》市,市-》县,县-》村

dat = data.frame(region,c(runif(11),1,runif(22)))
map = leafletGeo("china", dat)

map1=map[c(1:11,13:32),]#qudiao

#涂色环节
pal <- colorNumeric(
#palette = c('#111946','yellow','green','red'),
palette = c('#0A0F23'),
domain = map1$value)

#
#载入高德地图amap
m=leaflet(map1) %>% amap() %>%
#加入框边界及颜色
addPolygons(stroke = TRUE,
smoothFactor = 0.1,
fillOpacity =1.1,
weight = 1,
color = ~pal(value),
popup = ~htmltools::htmlEscape(popup)
)%>% setView(lng='113.3',lat='21.9',zoom=6)%>%
addAwesomeMarkers(lng=nzddata$long,lat=nzddata$bat,icon = ~iconList[nzddata$shi1],popup=nzddata$show,label=nzddata$产业园全称)
m

R leaflet的更多相关文章

  1. [原]CentOS7安装Rancher2.1并部署kubernetes (二)---部署kubernetes

    ##################    Rancher v2.1.7  +    Kubernetes 1.13.4  ################ ##################### ...

  2. 利用python进行数据分析2_数据采集与操作

    txt_filename = './files/python_baidu.txt' # 打开文件 file_obj = open(txt_filename, 'r', encoding='utf-8' ...

  3. Django项目:CRM(客户关系管理系统)--81--71PerfectCRM实现CRM项目首页

    {#portal.html#} {## ————————46PerfectCRM实现登陆后页面才能访问————————#} {#{% extends 'king_admin/table_index.h ...

  4. The leaflet package for online mapping in R(转)

    It has been possible for some years to launch a web map from within R. A number of packages for doin ...

  5. R+大地图时代︱ leaflet/leafletCN 动态、交互式绘制地图(遍地代码图)

    好久没有学习R的新包了,甚是想念啊! 昨天.今天看到两个极好.不得不学的packages+早上被AWS的服务器整得郁闷ing-于是就来点颜色看看~ 本篇受Lchiffon老师的github启发,对两个 ...

  6. 【翻译】Awesome R资源大全中文版来了,全球最火的R工具包一网打尽,超过300+工具,还在等什么?

    0.前言 虽然很早就知道R被微软收购,也很早知道R在统计分析处理方面很强大,开始一直没有行动过...直到 直到12月初在微软技术大会,看到我软的工程师演示R的使用,我就震惊了,然后最近在网上到处了解和 ...

  7. (转)R空间数据处理与可视化

    前言 很多朋友说在R里没法使用高德地图,这里给出一个基于leaflet包的解决方法. library(leaflet) # 添加高德地图 m <- leaflet() %>% addTil ...

  8. R统计分析处理

    [翻译]Awesome R资源大全中文版来了,全球最火的R工具包一网打尽,超过300+工具,还在等什么? 阅读目录 0.前言 1.集成开发环境 2.语法 3.数据操作 4.图形显示 5.HTML部件 ...

  9. leaflet地图库

    an open-source JavaScript libraryfor mobile-friendly interactive maps Overview Tutorials Docs Downlo ...

随机推荐

  1. cookie跨域共享

    domain和path属性,domain就是当前域,默认为请求的地址,如网址为www.jb51.net/test/test.aspx,那么domain默认为www.jb51.net,path默认就是当 ...

  2. web 日历 任务 插件

    [2] 日历任务插件(jquery版)新增日历任务和点击监听 - qq_26462567的博客 - CSDN博客https://blog.csdn.net/qq_26462567/article/de ...

  3. vue2.0里的路由钩子

    路由钩子 在某些情况下,当路由跳转前或跳转后.进入.离开某一个路由前.后,需要做某些操作,就可以使用路由钩子来监听路由的变化 全局路由钩子: router.beforeEach((to, from, ...

  4. Tensorflow调试Bug解决办法记录

    1.ascii' codec can't encode characters in position 0-4: ordinal not in range(128) 原因是python2.X默认的编码是 ...

  5. java垃圾回收GC

    垃圾回收时,暂停虚拟机运行 基础假设:大部分对象只存在很短的时间 对于新生代,Minor GC经常会发生 Major/Full GC会对老生代做GC 老生代GC采用Compact算法,移动形成完整的空 ...

  6. 题解:[APIO2007]风铃

    你需要选一个满足下面两个条件的风铃:(1) 所有的玩具都在同一层(也就是说,每个玩具到天花板之间的杆的个数是一样的)或至多相差一层.(2) 对于两个相差一层的玩具,左边的玩具比右边的玩具要更靠下一点. ...

  7. C++ Under the Hood

    The original article is taken from http://msdn.microsoft.com/archive/en-us/dnarvc/html/jangrayhood.a ...

  8. [WC2007]剪刀石头布(最大流)

    洛古 一句话题意:给定一张图,每两点之间有一条有向边或无向边,把所有无向边定向,使图中三元环个数尽量多 因为原图是一个完全图,假设图中任意三点都能构成三元环,那么途中三元环的个数为:\(\binom{ ...

  9. [FJOI2018]领导集团问题

    [FJOI2018]领导集团问题 dp[i][j],i为根子树,最上面的值是j,选择的最大值 观察dp方程 1.整体Dp已经可以做了. 2.考虑优美一些的做法: dp[i]如果对j取后缀最大值,显然是 ...

  10. 图解Tomcat类加载机制(阿里面试题)

    Tomcat的类加载机制是违反了双亲委托原则的,对于一些未加载的非基础类(Object,String等),各个web应用自己的类加载器(WebAppClassLoader)会优先加载,加载不到时再交给 ...