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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
5 v- x' ]& v  `* pinstall.packages("leaflet")
# 加载包
library(leaflet)
. Z: @! R: j$ p3 d  w. J" k+ O3 T' H! M. }# 设置地图控件
& ]0 P# i% Q; d. Z* _7 u; W& ^m<-leaflet()
at<-addTiles(m)
8 K3 x% @' N* x  T#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
4 ]3 B" s/ J; j# 添加marker 自己选择需要的经纬度 popup：弹出窗口
3 P8 p5 M% ?) ~( h% ]- M3 YaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
5 J8 K. Q. L% I, P, y4 U8 `+ n9 ~addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
0 D9 j1 v, r) n! ]" ^3 J

" x7 [! u: G1 J4 ~! H2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
6 N  ]; i5 C) O) Y3 M  f1 j! jinstall.packages("leafletCN")
library(leafletCN)
; x5 b# |0 ~  @3 L2 L# 使用这个命令可以直接绘制上海市地图
2 C1 \9 E/ W0 @demomap("上海")
. ?3 |1 z- o) Q

$ _1 k" `5 K( I6 N* E# 管道流 单点标记上海交通大学
leaflet() %>%
* F! ?1 k" k% d+ [+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
; t) _: x# v2 Yinstall.packages("REmap")
library(REmap)
* j+ N5 r# f' a0 m' ddestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
" P, y+ r$ ?+ o  d$ vhead(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
% G, O9 M; |3 D, ?/ t+                             color=rep("#fff",10)
/ v: b( p+ U6 M& A8 Q! q# Y/ U4 W+ )
markPoint_data <- markLine_data[markLine_data!=""]
2 {; j9 A$ Y4 W7 g, V( umarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
$ i3 B0 n# h+ Q7 F  G9 J/ H( T7 ?5 C# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
5 d+ V* J" N: g2 S+        subtitle="前10目标省份",
* a: f; S8 L/ t7 V; C  K+        theme=get_theme(                                         
+            #设置相应的背景色调
  X2 ?2 j% x; ]$ M  M+            theme="Dark",
+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
: A+ s" ~; y. `7 }9 h) l; M- G+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
7 e. _8 w' ^2 i0 n$ e+        ),
% d% f( B1 n( y! y+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
9 n; d# V1 h0 o1 W% s: i+            color="white",
+            lineWidth=2,
" S) f8 J0 @2 V' ?3 |1 F+            lineType="dashed"  
+        ),
# P  |0 Z# u! g5 c+        markPointData=markPoint_data1,
0 E4 a; u: y1 Z' \+        markPointTheme=markPointControl(
$ E" k3 Z: B( L( D+            symbolSize=13,  
+            effect=T,           
8 ]9 i! g' b) h" e5 i4 w+            effectType="scale",   
% d$ c3 c( ^3 [% B5 Q8 w5 ?7 |+            color="white"
+        )
+ )

1 ~" h: b: X  |  B8 Z3 W4 z2 J5 [
$ A. @1 _2 I* n  n3 u: ?; a

试试吧

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