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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
* |/ Q8 w7 f: Ilibrary(leaflet)
0 N. y9 p9 o$ x+ t" T" _8 k1 k# 设置地图控件
m<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
: Z9 D8 s+ E" d. l; |7 l3 v
$ x( T3 y7 T( k5 E* U: o
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
- r- L3 A' x, A4 Y' {# J3 b+ I # 添加marker
" g2 c0 X/ Q, |9 M- g3 O+ |4 v4 E addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

! r9 `6 C8 P6 ^" B5 h; H
, ]6 a/ y& V9 `+ H# q& M# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
/ A; P" H. n% ], l" d+ a- VaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


5 L1 A: G7 a3 b+ }2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
% G( h1 `2 w# X9 t! [( y& W+ |6 S# 使用这个命令可以直接绘制上海市地图
& |0 u! S* V* ]& w; ddemomap("上海")

. _( @  H- |, P$ X3 P6 g
* D% y+ }- P: \  q# 管道流 单点标记上海交通大学
1 h# }3 Q  Q& o) G' dleaflet() %>%
+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
3 _# E' k0 E( V. o
3 G6 J0 j7 W% n( `4 n- m
: y! T. g+ A1 G7 y  K! y3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
; x2 S' s1 o3 K7 s" [install.packages("REmap")
# H5 W. G/ @& Dlibrary(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
% D, m' T3 o' \1 ~* ZmarkLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
1 r+ y, f/ l6 q" @1 S/ \+                             color=rep("#fff",10)
+ )
markPoint_data <- markLine_data[markLine_data!=""]
+ w, @" ^9 h5 ]' L6 {markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
: q8 \$ D1 \. c: x9 u: j; uoptions(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
5 ^  X" A4 L/ R9 {+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
' U3 W1 v/ `0 f- V+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
7 A0 j7 |1 |9 x( E- [: O9 m/ E+            color="white",
: p- g# {( {) B$ e3 T9 s+            lineWidth=2,
+            lineType="dashed"  
" x4 S: Q. z6 g6 Y/ v+        ),
+        markPointData=markPoint_data1,
, I7 z7 Q- p# V1 D+ w+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
5 p+ M  y$ {8 }! T9 N- Z+            effectType="scale",   
+            color="white"
+        )
+ )

0 U3 f+ ~/ E0 I" ~
# J, k* T4 y) Y4 [* @, l3 E, i
7 W( [- }8 A, S6 p( n

试试吧

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