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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
- i) z, x& `- n  k- yinstall.packages("leaflet")
! [+ n; h/ s' n# 加载包
library(leaflet)
6 o' {. u- h) \) r& k' H$ }# 设置地图控件
! R5 }$ u1 ^4 n6 Nm<-leaflet()
. N+ p! J1 k8 d# C* r9 K% `& }3 D# C8 i& Mat<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
& Z5 r  Y& U1 z) |- |7 s$ Pshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
" O, x) F- L* a/ p# 添加marker 自己选择需要的经纬度 popup：弹出窗口
! R8 d7 ?1 C& W" ]3 s0 GaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
. Z4 p7 ^2 F9 n+ d7 z

3 y$ T' y" e* F+ r3 C9 I jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
: N8 G# K& ?1 n. |3 E- D# ]addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


7 E6 `3 [4 G- _2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
: j* ^8 S  R2 J, t2 Q3 ^install.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
* ^7 }; R  o3 y, L+ ~demomap("上海")
; {8 w" f2 v. y0 O
7 r! U$ v, }. C5 W  A' ^
( H+ ]; T. C4 p8 E3 i& c+ P# 管道流 单点标记上海交通大学
leaflet() %>%
) v9 }; D" Y6 Y+ H5 N% d8 V  S+     amap() %>%  
" f+ Q' _# _/ K+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

( ]" R& c  K! R3 c: k
9 E( Y6 V& B5 ?$ Q3 [3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
% n1 A' D6 K* I9 e* klibrary(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
) h- T/ l4 s0 z' Z0 {  u, E; ^markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
% n. b6 c1 v+ j/ w+                             color=rep("#fff",10)
+ )
5 B* \. f  z  Z# JmarkPoint_data <- markLine_data[markLine_data!=""]
  X6 W4 ?& \! B# U) lmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
4 r+ z2 ~0 ~" N/ A. ?4 ?; D+ Q# 要自己注册一个AK api key 不然无法get到经纬度
8 e0 v3 s! s/ S2 Q6 _( l& Poptions(remap.ak = "xxx")
: s3 U2 b, F! ^% }5 w6 OremapC(destin,
" [4 x* I% d. N$ d  a1 ?+        title="2016年2月6日 广州人口迁出图",
( ^2 b4 B- Z$ `7 ~# r3 p- s+        subtitle="前10目标省份",
3 [  g& A+ j1 ]+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
- Q/ K/ z6 ?+ m+            lineColor = "#FFFFFF",  
. j0 M! V/ Y5 D+ H# m9 D+            titleColor = "#fff",
, q1 G+ T% O$ N+            borderColor = "#FFFFFF",  #边界颜色
- }+ i7 M0 ^4 a4 B7 }$ r- Z+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
( A3 B! p& P6 k1 {+            pointColor = "gold"
+        ),
/ I! N- z5 P! T$ o, k' E+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
! T& c' ^; \  V" u+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
" U' E* P( v% L+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
* g6 J1 _5 l$ G+ C+ T5 Z+        markPointTheme=markPointControl(
+            symbolSize=13,  
" g" ?8 L7 R' i$ T/ ~3 m% x+            effect=T,           
+            effectType="scale",   
* N" k& d, J$ f1 {+            color="white"
+        )
+ )

; b: ^+ d$ L  k) o% L9 M
; V+ K* R3 ~3 [

试试吧

好，谢谢楼主的热情分享的资料
8 q% n3 r5 z, L