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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
% R: t# g% P. m, h- C) einstall.packages("leaflet")
( N2 V' L, I1 T+ ~+ N# 加载包
library(leaflet)
! R# B( t2 S8 T# 设置地图控件
m<-leaflet()
at<-addTiles(m)
3 A0 U7 y. W" W- P#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
0 e7 k: m( h3 @- ^; [7 a8 s: j/ X6 ZaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
: v( W+ j/ ~: W( c5 {/ t  f
5 |& C& m  k& r4 U
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
9 j1 ?9 ]  P& c& G # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

5 O% R6 \; O; x! M& E
; n' s4 _# b& ]# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
% H' N9 T4 k2 N0 p1 k$ J. z$ _

- ?% b! a1 i$ l' B) L6 {& d  ?7 a# p2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
% g8 [( \2 b+ hlibrary(leafletCN)
6 {9 w2 p" }: {) @# 使用这个命令可以直接绘制上海市地图
9 l4 c$ M6 R6 e) G  D1 sdemomap("上海")
- k8 n4 ^) b; O7 b; x2 L3 O
9 u, L, I1 \/ P' l+ r/ w0 l
# 管道流 单点标记上海交通大学
# p# H0 Y; E2 C; ]1 cleaflet() %>%
4 c- ?1 w0 {: y* I, F+     amap() %>%  
7 z" k% I, ~) W/ B+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

6 K* U; [" l7 J& l  B4 V
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
0 ^6 v8 s  T) [+ ^% Uinstall.packages("REmap")
library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
  q3 S$ l) `; M/ |' t: shead(destin)
names(destin)<-c("names","values")
1 h# j/ P( V; L) ^) h6 y) JmarkLine_data <- data.frame(origin=rep("广东",10),
' Z- C6 B& a+ r+                             destination=destin[1:10,1],
# V1 F. F" ]3 ]0 X0 F% h2 D  G) U+                             color=rep("#fff",10)
& z3 K5 g- q9 b' t$ ]+ )
5 \9 p. \# |8 YmarkPoint_data <- markLine_data[markLine_data!=""]
7 X+ C" o5 j" @. `4 d6 ?* YmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
0 n: C0 B, c5 |* c9 |0 M" T# 要自己注册一个AK api key 不然无法get到经纬度
+ J3 u2 g% M; d/ {4 H. L! {options(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
9 a& N7 q/ \6 R  l/ `+        subtitle="前10目标省份",
8 v* y( Y, x# ]9 B. a# U5 M+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
+            lineColor = "#FFFFFF",  
, U, U# c4 ^8 u- t+            titleColor = "#fff",
3 h8 e$ j, z6 X6 o* _& @" A' P* Q+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
# B6 e, b& _9 {7 c+            pointShow = F,
1 T% B! E0 b. `# f% _$ i+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
/ [" q: v! D8 T% O+        markLineData=markLine_data,   
" D1 e7 i1 \- b) W+        markLineTheme=markLineControl(
0 ]0 m* N- r( `% u+            color="white",
: B, a1 G+ A5 x( G" h+            lineWidth=2,
+            lineType="dashed"  
/ @  R; B% Q1 A1 C% D+        ),
( h# ?0 J: G  R' T4 G+        markPointData=markPoint_data1,
- Z- }. _3 M- t% z+        markPointTheme=markPointControl(
+            symbolSize=13,  
1 D& g3 A9 r3 R9 }! f# n% O+            effect=T,           
4 K1 v2 i/ T3 E' J  g4 G+            effectType="scale",   
. l  J) n( ?, @  m+            color="white"
1 p, c/ t* Q1 G, p+        )
+ )
& [, t: _! s9 b/ g) Y1 @

6 V  b0 l$ a2 z2 F2 o3 @
8 ^4 y! w& J& y4 z+ J" {

试试吧

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