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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
6 c8 `0 k- T. ~! M. ninstall.packages("leaflet")
& t! Q- u4 O+ @. ]( W( c# 加载包
library(leaflet)
8 G" O/ c% s% w$ \# 设置地图控件
5 C, d. c  h& {m<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
& v- J5 y0 A8 ^- g- q$ h4 z( x1 O5 _shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
/ k% b* y% Z& o2 i+ G # 添加marker
% m3 Q5 S- d6 f) K! H& ~ addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

4 `) l! p2 E6 s  W4 i, d* D
! n+ H, W2 M5 Y! {6 i; X3 @9 _# \* u# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
  n8 u% z8 Y$ d$ k0 naddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

4 k9 R/ d7 ?7 W7 J
8 g& U1 C$ p' h1 M9 `* L+ ?2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
1 Q; G" ]) @' e; m1 J. dlibrary(leafletCN)
4 o: N: Y) ~, C/ w0 i; ]# 使用这个命令可以直接绘制上海市地图
demomap("上海")

% L8 X5 X  m+ y& z6 Q
# 管道流 单点标记上海交通大学
8 e! r5 f) c- t1 A1 {! Y7 E+ Qleaflet() %>%
5 F, D$ i6 ?1 d$ q8 I+ a+ Q* D+     amap() %>%  
" s/ \* ]4 y- H  V5 W" F+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

7 C9 ]) o  R& A1 i- N
1 k) `+ }7 @$ H$ U0 q/ J6 |* Z3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
. O3 _7 j+ ?6 y, Qlibrary(REmap)
8 D7 _* m' R8 t7 G5 x- tdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
4 B' U0 \1 ?4 J9 A6 Q( P7 Ghead(destin)
names(destin)<-c("names","values")
0 ?5 p1 U1 G; O) z, [# {! |) h' WmarkLine_data <- data.frame(origin=rep("广东",10),
0 P# n9 a" X$ i' L4 u' {+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
, Y+ A4 m% k+ |- ~/ I* c+ {5 y, ]markPoint_data <- markLine_data[markLine_data!=""]
0 B5 F5 k! B1 g5 H" g1 ?markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
0 y# {; M$ k5 B7 v6 w4 L9 m# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
+ M! @7 u9 Y) JremapC(destin,
" V! p: y7 g  Y" r+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
3 t6 ?5 k2 q$ T4 ?" p2 Z+        theme=get_theme(                                         
8 t5 m. S) d# ^5 O! H4 E" U! h+            #设置相应的背景色调
, R& K4 t) e  d; I& s: r$ S+            theme="Dark",
+            lineColor = "#FFFFFF",  
5 D" }! h( _3 b- K: y, L  D+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
9 N) m3 L* d! @. ?* u( m$ R6 f+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
6 k0 a" e/ |1 d, M/ p+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
$ x, m4 M+ B. ]5 o4 y+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
. }* V1 `2 V  S% |  r8 Z8 O/ N1 i+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
2 m' h! ]6 e3 r! N8 t3 n+        ),
0 T( i" K) r2 F, \; `+        markPointData=markPoint_data1,
" t2 p. ^1 h3 W1 i" S/ T$ u  N+        markPointTheme=markPointControl(
+            symbolSize=13,  
3 k' C* ^. Y6 N' |+            effect=T,           
+            effectType="scale",   
. g. g2 N7 Y7 k! l$ O' f# u+            color="white"
3 a- o) d' }2 t/ n+        )
+ )

试试吧

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