R语言 作业 leaflet leafletCN REmap 的使用 迁徙图

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
/ f+ O* j& I+ u& a1 I( W" i# 加载包
% x, l6 J. k  N' z. ]2 {6 @1 \library(leaflet)
* o8 \9 s' z$ L9 M+ g; k6 t; J# 设置地图控件
6 M7 N# z" K6 x- `; h. g+ v5 lm<-leaflet()
1 h4 u$ x; K. g# bat<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
8 `% L1 g" t  V" Z9 Q; N! }5 a( k* n# yshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
! a0 H; U" r1 ~5 y; o* w8 H6 N6 B# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
3 c7 }1 P; J. H, }! J& {

$ S" Y: m/ t$ z2 D jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
( T% b7 V7 F) D  C  ^2 X" A$ b addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
, h5 n7 h2 x# A  B6 ~addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
9 q( i! o1 L* [+ Q" D( Q8 @; linstall.packages("leafletCN")
library(leafletCN)
  t% ?: N  r8 `) T6 k# 使用这个命令可以直接绘制上海市地图
+ X- o( i! [! C1 Gdemomap("上海")
+ s  t# ]6 l2 c
  Z4 S8 |4 [! x8 s; l
  J: x& J' e8 {3 g" @4 I- X. m# 管道流 单点标记上海交通大学
4 W! ~$ |7 D# X$ `" H8 Z7 d8 N# q5 Uleaflet() %>%
! V3 z- N- p( w! X+     amap() %>%  
' A) k  _4 h0 F7 q- S" V+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
) c+ u- t+ ^- j2 W0 ^( ]- Ninstall.packages("REmap")
3 h$ P3 b1 d( [4 ?: elibrary(REmap)
( n" Y, P: ]9 L& n! o8 Odestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
7 |* _9 e1 L' b& w# zhead(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
, v+ [$ j: u# L3 W/ I: L3 I+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
9 T0 g) K$ h  L# o5 B% Y+ )
markPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
' Q3 m  V. \! W1 M! I/ W# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
8 r, w* t8 D. }+ i9 v% r+            theme="Dark",
+            lineColor = "#FFFFFF",  
- r5 Y! k6 }( q5 G+            titleColor = "#fff",
% y* H' q0 U. W3 ?# i+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
  Q5 j. z7 ]2 h9 F  Y, h8 y5 g$ k% m+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
7 Z0 ^4 T  e3 D. b# k+ O6 @/ }+        ),
) K2 v/ z9 d' w2 [5 r+        markPointData=markPoint_data1,
6 m; U2 G  m' _! C+        markPointTheme=markPointControl(
+            symbolSize=13,  
$ f* n! n9 g3 d3 C+ {+            effect=T,           
9 `% t$ V3 z. o4 {. t+            effectType="scale",   
+            color="white"
+        )
+ )


* j0 G+ d; y8 E% F

试试吧

好，谢谢楼主的热情分享的资料