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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
( @0 Y/ f9 ?' x1 _" linstall.packages("leaflet")
# ~/ Y0 ?. W9 ~; u0 a( m, N* e# 加载包
6 b+ T1 q& S5 c* l+ Clibrary(leaflet)
4 N2 N4 i; W, W; ^% h' @# 设置地图控件
m<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
0 E; ]! Y) p# m  O7 _0 X6 H) |shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
4 M$ W. x, A+ d; B6 a- u# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

* U, i; e1 p, ?8 W. U
4 w" m8 _" O; A% M" E7 w jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
' n/ @+ T) Y* \1 ]) K # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

9 ?6 _" ^. k* x
* |; M" `! S7 m* R% u$ L% {# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
+ J% H+ D1 A1 a9 c" d7 }addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

! V3 X& g/ I* k* A; C
7 l9 F- b: s" K. Q  G& M4 a2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
& d  d% O  ]% n- ilibrary(leafletCN)
& U/ p/ b$ m9 w+ q' y# 使用这个命令可以直接绘制上海市地图
demomap("上海")
( _$ u- n# a: T$ p7 x1 n: `

0 K5 _3 T) K# Z1 B# 管道流 单点标记上海交通大学
% [$ p2 P% b# W; w. W" }1 L, }leaflet() %>%
+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
. K* Y  ^9 ~4 `3 i

5 Q8 V+ n! A  P0 {3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
) s! G+ Z; i1 ^$ k/ l. Cinstall.packages("REmap")
& g+ W6 R" W# M5 a  b7 a3 ]% p1 v* s9 `library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
3 g; Q& ]0 n0 D6 t# ~7 |. rhead(destin)
' p6 H6 b, ]8 A7 f4 V" Qnames(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
* N. {4 \( x8 E6 n% t+ )
markPoint_data <- markLine_data[markLine_data!=""]
; j; q# @* I6 p; A5 y+ |: d8 smarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
! A. {5 z: d/ M( {8 p3 o4 k, Koptions(remap.ak = "xxx")
! {' @" K  J9 Q+ \remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
: M$ T4 o) D, q, h+        subtitle="前10目标省份",
3 W1 v5 g+ X: R- ]. ]3 y1 h% \+        theme=get_theme(                                         
+            #设置相应的背景色调
) ~' k4 z$ W8 Y+ _+            theme="Dark",
+            lineColor = "#FFFFFF",  
( @% @6 L! U! {+            titleColor = "#fff",
0 v( E" }. T% ~2 S  P+            borderColor = "#FFFFFF",  #边界颜色
# f1 [4 t1 f- f) X" P% y+            regionColor = "#000000",  #区域颜色
& U8 p- H1 j3 W# t6 h+ C5 z+            pointShow = F,
+            pointColor = "gold"
6 J; h; Y5 R% h' ?  D& ^3 r" y+        ),
& E" d" e! ], [/ \+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
: @  c. T9 a+ b- z0 G+        markLineTheme=markLineControl(
8 U, d  w/ N, ~+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
! V! `' O3 \9 x% m6 J! q4 t4 R/ h) [" ]+            effect=T,           
+            effectType="scale",   
+ {* Q- W- f7 e5 H% U& o+            color="white"
9 g0 U" C2 ^" _4 \2 O  N+        )
6 l: v  J3 d6 X  |2 n+ )


; F0 E6 T& ]# N
' @. Q% q4 t$ r4 _& F& v3 W

试试吧

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