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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
, t. O5 @' }3 g# 加载包
library(leaflet)
0 x. Y: B% r' w6 }- E9 ~2 ]( c7 A0 G# 设置地图控件
: @5 o4 j1 ~' V% a$ J0 Om<-leaflet()
at<-addTiles(m)
$ E3 D8 o  b: }#  在弹出窗口中写一个html格式网页 根据要求来写
' V% e, _" L1 b% g2 wshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
, W( L9 d/ h! f/ @. ?; }# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


! K( o+ l& t6 e6 n. u7 e- L jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
* G' h" `7 f; B3 u5 W # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
- p8 u9 Z9 n* s  r$ ]
" d! ^5 R5 g: _6 P/ [
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
/ o) c# j% a; [# _  W) maddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
0 A3 J7 u, z! a; @; t# s5 y/ U" \install.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")


* |5 W3 q/ T2 M) l; b5 G% |# 管道流 单点标记上海交通大学
! ?) O! |' t2 I9 [3 t/ i) _leaflet() %>%
+     amap() %>%  
; O8 x! g) Z7 A6 c4 w7 G6 g. v+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
, D* R- m$ I+ J6 ]: F; S
5 F& ?2 Y: _2 L) G# A
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+ c7 |# ?* |) U+                             color=rep("#fff",10)
+ )
% D$ e: y/ n; ]3 r! M: KmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
  F1 y5 K, A0 g" l- p0 r2 J. e8 a# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
! ^$ [" ]. g+ m: a; g; u9 Y" I( cremapC(destin,
4 E8 P) P9 j' m0 X9 M4 q+        title="2016年2月6日 广州人口迁出图",
, j8 F: p( T( F/ V6 p( e+        subtitle="前10目标省份",
1 M1 R6 l5 B5 w: j" a% ]  H+        theme=get_theme(                                         
+            #设置相应的背景色调
" s$ x. E* y8 \. S# k) b+            theme="Dark",
9 K) ~( l: E, {% X5 K+            lineColor = "#FFFFFF",  
& Q3 s5 K+ y8 _7 ~+            titleColor = "#fff",
- L' I6 T" t! |+            borderColor = "#FFFFFF",  #边界颜色
- s3 n8 ^, d9 k6 v+            regionColor = "#000000",  #区域颜色
* k' g' E8 u6 w  n) O6 q+            pointShow = F,
+            pointColor = "gold"
2 y6 a& b; k8 b4 a1 w* N  T  H+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
: t" h2 V+ M. f# h9 X1 v+        markLineTheme=markLineControl(
+            color="white",
3 f. u+ s; W0 m% B" ]0 w+            lineWidth=2,
+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
" I( \; ?% G" W% z* {' @5 o+            effect=T,           
+            effectType="scale",   
9 x7 W6 u: z) W4 i+            color="white"
. D! j# p) u" `; n+ i+        )
4 `6 v! e- n5 q2 t9 @3 }+ )

; c3 [/ h8 v: b: }- b
9 G5 E8 `" u# N* z5 J" V
1 V7 m# Z! x% F* l$ [; C8 j

试试吧

好，谢谢楼主的热情分享的资料
3 V5 i4 Y" U! q- w( X% ^