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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
2 ~1 W3 U" W) u2 H% j' L# 加载包
library(leaflet)
# 设置地图控件
m<-leaflet()
2 L( t- G5 {9 t5 D2 N; H; x1 Z2 N+ Yat<-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)


) j8 U- E' @8 Y# v* d3 d# } jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
0 a4 K% C9 q6 `$ v # 添加marker
; K# ?' |( ~: {- O5 @6 u; ]) p. r4 h addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

  F( l6 R% q  W- b5 o2 T
. X! B0 z# e3 ?/ y  m- m# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
6 {3 z- ^& R' p1 W

2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
) B5 J5 w* c, B- P& o) M6 zlibrary(leafletCN)
" m# @4 f- R6 z# 使用这个命令可以直接绘制上海市地图
demomap("上海")

) `+ y" `/ B( d5 B9 w- k
% o4 Y+ m8 l" h9 S) ~/ B# 管道流 单点标记上海交通大学
6 K: ~) Y+ x6 s' x: Y& T5 o: uleaflet() %>%
+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
5 \  h8 c: |% l; g

3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
$ Q" N5 Q" y, m5 Xinstall.packages("REmap")
+ J! ^# C0 Q+ o* n6 Flibrary(REmap)
% S0 t( `/ o6 }$ Cdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
  `9 R. n( f; {7 j7 x6 imarkLine_data <- data.frame(origin=rep("广东",10),
; H3 V0 u% P( n5 L  i& I# @7 N  M$ s+                             destination=destin[1:10,1],
9 P9 C2 u; W. l- v! @+                             color=rep("#fff",10)
+ )
8 `3 ]6 K/ K7 O: O7 RmarkPoint_data <- markLine_data[markLine_data!=""]
4 }, ~3 x: N4 k! E1 Z! a+ JmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
. K- f& p. J# {# 要自己注册一个AK api key 不然无法get到经纬度
6 E/ Y3 ^# ]) b& {5 G1 Doptions(remap.ak = "xxx")
1 P) z4 B  b. E! tremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
$ }8 V9 M( L9 B' ]! @+            theme="Dark",
! ]' I- R, U& q0 Y8 C. s7 m2 o+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
. M, p: k" m4 q  |# s8 b$ [+            borderColor = "#FFFFFF",  #边界颜色
/ C) Z' [' e  N9 G) ^6 ?! G6 C+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
- m" J; u7 p4 P+ r9 _+        ),
0 o/ }* V9 ~: d9 {" n: n+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
$ ^# J* u7 P9 b! g7 J+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
4 S" T1 o7 `& m* [0 h+            color="white",
( ~* _) t; n0 z3 |3 S+            lineWidth=2,
7 m# w0 l$ g, w8 M+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
4 U7 l0 b$ U# }3 p; d, I0 ?+        markPointTheme=markPointControl(
, C! \" N- t& j% X2 `9 g: P! ~5 s+            symbolSize=13,  
+            effect=T,           
& H/ L6 X* \& Q5 L7 {8 l+            effectType="scale",   
. A* C3 i; f5 L) K5 \8 H. ~+            color="white"
+        )
) E$ }3 v( p9 d3 S( Y+ )
, C$ n! k8 R& x' {& X- y9 z

" K7 o! L4 x7 Z- w" e- P% `1 `
' T! |4 K# ~  Q4 I$ l. _

试试吧

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