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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
/ a) M5 Z" Q% }& X  Q5 |library(leaflet)
$ ]+ @  C* F3 U# 设置地图控件
& @$ ?" K* g8 w$ S0 F( \" ym<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
6 V# K9 L" L# C4 L$ A2 P# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


1 p' m( {+ S: e# `4 J! C) n' P8 N5 K jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
1 a6 O# m+ f) G/ z; K0 k6 i

/ r! S5 ~8 M( y( _, J3 g* }( v# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
$ s5 \2 O: h* i1 x  A) {8 zinstall.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
( H& W, e8 E- {$ Wdemomap("上海")
3 B6 v8 s' I) W  ^

+ O' `# _: J. M9 H$ a: _* {; d# 管道流 单点标记上海交通大学
leaflet() %>%
4 E" z0 t+ H; f( X5 y+     amap() %>%  
) K8 f' U+ [* z3 f' V( |+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

; y+ \& A2 S) S- W* {* [6 v& l
1 H8 X: o( e+ H1 H! K( q3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
' n0 B% ?0 y* r+ i( Qinstall.packages("REmap")
library(REmap)
2 a5 Z) Q1 h$ X; }! o8 v  Cdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
8 u' t* y3 a; _8 J6 Nnames(destin)<-c("names","values")
5 b7 a, A! f9 {: |% k* PmarkLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
6 G& ]8 Q" X7 Y6 D9 {9 p" p+                             color=rep("#fff",10)
7 k, z$ `5 ]8 h8 X5 V. N1 v& }+ )
markPoint_data <- markLine_data[markLine_data!=""]
( L1 T4 [4 u6 L" L9 UmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
$ d2 v$ E5 h9 j! W, u# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
7 s0 \/ v0 T9 e) p6 L, D6 jremapC(destin,
3 l; l5 q" b( X4 I+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
/ F& g; M0 u* c. N3 d! j$ J+        theme=get_theme(                                         
* ^6 U9 o* i# d8 O) n7 e+            #设置相应的背景色调
+            theme="Dark",
+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
3 B, l1 @( g" j, u) t8 F% C+            pointShow = F,
# ^1 p6 _; |+ H/ G: r2 M; I, k+            pointColor = "gold"
+        ),
2 g* Q, H7 W) w) c, k+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
; A8 E8 D+ N4 [2 v- v0 a+            color="white",
6 U' b2 \. h+ k0 m- c+            lineWidth=2,
( C- P; y7 u: [+            lineType="dashed"  
" }9 s: L! e; k- j$ f$ \% [, D8 g+        ),
+        markPointData=markPoint_data1,
7 t2 l, ?+ G7 ~, p$ T/ t4 ^; e+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
+            color="white"
* H2 {) b/ D- \5 S* Y$ ~+        )
2 F# {& I8 L/ \% ?. I& M/ m+ )
! A) l" F$ d2 h& c: R% P) z

( v5 x& Y0 w+ z; s& a
( I1 X1 v9 y. K: I$ H

试试吧

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