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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
5 s. |1 I0 c7 p/ c# 加载包
library(leaflet)
# 设置地图控件
# [) Y1 J7 ]- @9 t4 [: s" ]m<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
( s! h0 z& B: G* Sshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
% E: O  B3 g3 s( t1 `: D: K# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
( K6 ~. g% e  c+ V8 T% e. Y% b2 P # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


: {  o8 X: W; l7 s. g0 x# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
1 w$ n0 U4 y1 ^5 A9 ], b; D) y
1 W  ]: s$ R) z& J
. t; M  j) t) @! e. I* T! N. u" d" M; V2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
  T3 O7 i/ f* n% u& @  j; {5 @demomap("上海")
6 w0 e1 v% u) ?5 T

6 b4 r8 h0 N( J; g( `# 管道流 单点标记上海交通大学
leaflet() %>%
+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

0 R8 \* T$ t* W
0 S& I( U' L" K2 L! x1 L8 q3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
7 K* P9 \' W% v  Blibrary(REmap)
! y. P5 `' C) D  c) Vdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
5 _& y0 T! s% v8 X$ Y' s8 Lhead(destin)
names(destin)<-c("names","values")
+ q, N- S2 E. ]! L  AmarkLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
1 x; y" y6 C% b0 K. Y, B6 E+                             color=rep("#fff",10)
+ )
6 t1 {( I, q7 k2 pmarkPoint_data <- markLine_data[markLine_data!=""]
# W) v8 E. @" m3 B' f( cmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
7 {1 l. W- H/ B! `) c7 J' Coptions(remap.ak = "xxx")
remapC(destin,
" {6 O' D- Q( o/ R' _' {+        title="2016年2月6日 广州人口迁出图",
5 O5 s% H* t- G$ O% w+ H9 z+        subtitle="前10目标省份",
+        theme=get_theme(                                         
7 f8 ~. u2 f$ ^) k9 d! J& c) C# u+            #设置相应的背景色调
0 U& F3 `/ E) Q' _6 ~) ^9 Y; S3 Z+            theme="Dark",
+            lineColor = "#FFFFFF",  
. {, f; I) `. f6 H/ b) p+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
" u. g0 S* p9 P( n' S1 R/ s/ c+            pointShow = F,
( j9 G9 S  E7 H; s3 [+ h" \, A+ ?+            pointColor = "gold"
/ a8 y; M1 f) K+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
8 a3 s, h! w6 A/ I! B+        markLineData=markLine_data,   
# k* M  ?) B; ~+ X& a/ l( Z+        markLineTheme=markLineControl(
+            color="white",
$ D4 H" ~' P' Y% e9 C' @+            lineWidth=2,
+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
9 F( F0 L9 x4 @8 V+            symbolSize=13,  
' M+ O) |& t, s0 G% D# o& V% I+            effect=T,           
+            effectType="scale",   
+            color="white"
+        )
+ )


$ j' a5 d4 O! U) o
  X- l( O7 `6 R$ m- E

试试吧

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