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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
6 L3 ~. |2 {8 oinstall.packages("leaflet")
# 加载包
library(leaflet)
0 A; ~/ s3 w6 [, L# 设置地图控件
m<-leaflet()
at<-addTiles(m)
) D$ j$ |$ V5 D, f#  在弹出窗口中写一个html格式网页 根据要求来写
* d' ^$ }/ ^* S( n. ~: o/ F6 Bshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
: ^* g6 p0 ]0 P1 s7 x7 f5 u4 i9 [
& m. `* [- Z1 Q1 V* A- l' }) L
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
/ l  w/ a3 A' }( |4 |* v1 ]! } # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
. k' j; q) r  F+ r( H) B+ V
2 w7 r8 L0 m0 d$ V* ^" F) c9 x( z
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
8 B1 I" a  {/ u- NaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

8 O, F9 S3 H8 n2 Z, y
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
$ _3 @4 D* _* m, elibrary(leafletCN)
$ l. z! F8 V% G7 u, U" J) r# 使用这个命令可以直接绘制上海市地图
demomap("上海")

: E+ h7 ]' k( O+ u. X* |2 y* c& t
# 管道流 单点标记上海交通大学
& B$ Z, v4 ?+ W2 P) F% oleaflet() %>%
+     amap() %>%  
' L  q  b) x; ^$ [* t3 r. W# p+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
3 J2 S/ W1 F7 K( u5 |  O  i. E
1 L7 g% N9 O0 x( M6 P
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
+ \; B9 y0 R" ]6 Flibrary(REmap)
/ B9 ^& t: @0 qdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
2 R' ~" E8 g' t9 u1 M, R1 Anames(destin)<-c("names","values")
% p( P1 p  I" Z3 j7 N; @- ^markLine_data <- data.frame(origin=rep("广东",10),
3 r0 Q) M, r3 w, e' {+                             destination=destin[1:10,1],
. C& \; A- i/ B- _! r& A) P+                             color=rep("#fff",10)
; r* V0 Z; i3 R' E% _+ )
" X: N6 Q: b" c8 FmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
+ A  |1 s, |) w0 N9 a1 v# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
; T' ~. a1 |1 P! e( q6 \; P8 _remapC(destin,
- r* K9 P- d% Y, P* q; d0 n- n+        title="2016年2月6日 广州人口迁出图",
1 c' j2 Z/ V1 H+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+ K2 D' ?) |# t7 y  x0 U2 N* `9 ~+            #设置相应的背景色调
! F4 d5 }( A$ Y" N7 C+            theme="Dark",
+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
0 Z3 ~; y( q' A0 x: C- w+            borderColor = "#FFFFFF",  #边界颜色
4 s+ ?/ o" Y% ]* t, V; ?+            regionColor = "#000000",  #区域颜色
" R3 A% M9 y, u) C# R4 Q+            pointShow = F,
+            pointColor = "gold"
) k$ E- E4 x" N- K% ~+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+ J$ W+ @. w6 B' d5 T! K+        markLineData=markLine_data,   
: B& C* y4 n# v! v  E+        markLineTheme=markLineControl(
3 Z! y" ^5 v' w4 Q) U+            color="white",
' S& A9 D, _( \% |1 t+ K9 Z+            lineWidth=2,
" e( d+ O4 ?& A' F* q( a5 o+            lineType="dashed"  
, k1 @9 ~/ n) d5 j+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
5 |* g. b* {) O: T6 b+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
+            color="white"
2 |3 ]- @9 E) f/ f+ w* K" U+        )
- h+ F% W2 ?' E+ )
4 G1 [' X' _. K" `* R# e) {& M

) X& p3 `1 q3 f( ^5 c3 ?9 M

试试吧

好，谢谢楼主的热情分享的资料
) z! b# T8 _9 R( u) m