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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
4 I7 q- m. n2 P4 o5 E9 j  }install.packages("leaflet")
% L1 ^" G" I. M$ D# 加载包
9 O6 P  x. O, K3 @library(leaflet)
# 设置地图控件
; j7 `3 M3 ~* }3 Z' wm<-leaflet()
- H/ e+ x5 \% uat<-addTiles(m)
0 S! l* Q0 F1 ~& }3 F#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
& f- {6 p) q  R+ _9 {% s' p6 ZaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
& |" f) K. Q: ^5 }' N
* Q: }* o+ Y3 }" q
; u1 r" }5 Y! C jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
0 u+ N4 D! |6 L' P9 [ addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
: ?9 L1 Z% L* H2 p, ?1 H. D

# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
1 |) L, b6 b! |; LaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

# L2 Z8 i5 j* U% R; ~3 [: n2 i
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
4 l$ ]1 Q" V( A3 s$ Alibrary(leafletCN)
- D6 V: }6 `) K8 v/ i1 t# 使用这个命令可以直接绘制上海市地图
& I, X$ K- s4 `6 b/ odemomap("上海")


# 管道流 单点标记上海交通大学
leaflet() %>%
# z7 B  \4 p1 ~( L+     amap() %>%  
/ _( E* B5 n* ?/ W+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
  A% T1 W  `. ~, Z4 T8 K1 J
1 b: R% G1 c3 Q. b- J; [
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
" J# i+ B7 L. _5 |& F0 finstall.packages("REmap")
library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
4 y) l9 @6 D6 M5 L4 Ghead(destin)
1 v' F& Z: ]' Y% X* Enames(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
$ e" s) H. R6 ^$ V. W% `; s0 _+                             destination=destin[1:10,1],
' |- u1 P5 v4 k: h( G2 B6 s+                             color=rep("#fff",10)
8 e, b* Q( v3 E$ L+ n" g/ f6 ~$ d+ )
markPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
% o7 c; A+ Q9 c0 R5 `; D& A# 要自己注册一个AK api key 不然无法get到经纬度
/ p# R/ r4 Z, u, {$ P3 Voptions(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
5 Z- J9 h. n3 n  @9 K6 T+        subtitle="前10目标省份",
+        theme=get_theme(                                         
. m6 F: j% A6 ~# j! P) M+            #设置相应的背景色调
+            theme="Dark",
1 p3 h$ q3 s9 n+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
- W, f" D- O2 g. |1 U+            pointShow = F,
+            pointColor = "gold"
' A& E1 g! T* \8 `/ {+ [" {9 V+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
: h8 T6 b5 f+ g; \2 i9 @+        markLineData=markLine_data,   
, m, I8 A5 e/ l; c: A! D& W+        markLineTheme=markLineControl(
8 g. I4 m: }9 ^6 ~+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
, N: ]: Y) p6 b4 F5 W- L+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
3 r4 M6 [, a! Z# ?9 h* w+            symbolSize=13,  
4 R* S7 l9 c  G, W6 c0 P% U+            effect=T,           
+            effectType="scale",   
( E+ @( H; W2 Q0 C: d: W+            color="white"
+        )
+ )
5 x4 {) c! Z) j: A4 c/ s
9 |# z. `7 {. m" |+ U
; u9 A+ p' Q5 b2 o) \; x7 E2 O
7 m( U, {, ?6 j+ x, `. f

试试吧

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