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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
! [. Y$ x- d7 B: o6 i1 tlibrary(leaflet)
- T8 N; ?% N; I1 e# 设置地图控件
+ `, Y  z! m5 T- q& \( A5 D& X, Nm<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
0 [) I- o5 D5 p$ s" _# 添加marker 自己选择需要的经纬度 popup：弹出窗口
9 j! H% I4 S* }$ D" @) J7 ?% RaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
7 J7 Q7 D6 g: x, S. M- s% S

jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
( ]1 [/ O; o5 U2 |5 K # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
, Q' q+ g7 r6 ?& [* }' g# y+ E2 ?4 S$ G
. |( j: D+ A7 ^  N+ M2 O
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
  @0 o+ q! b- \* w

2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")

0 g4 [8 W% w! S9 w, B- L. _- p/ D- ?/ ]% c
- d# `* N6 i! L  |3 O# 管道流 单点标记上海交通大学
7 a, S# @) Q& ?2 n6 h3 o  `leaflet() %>%
9 k9 V9 ?6 |+ F4 p0 N: C: G. c' l+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
/ j& j4 f# p9 P7 e
4 q3 O& `/ g7 t, G
) w$ ]8 \- w. d/ h% b, t3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
" y! L$ J1 n4 N* M7 }install.packages("REmap")
library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
$ X( u" Z0 z; Y, L& Jnames(destin)<-c("names","values")
$ T+ @9 r* @% F% K3 @% x& z7 xmarkLine_data <- data.frame(origin=rep("广东",10),
5 f! N0 L9 A3 i+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
( k  L( [$ r, e, E. H+ )
markPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
/ p! U3 L6 c- b) F# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
# ]6 ?4 l" @% ]remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
) X* U0 O# P7 s( Q  @" @: _8 \+        subtitle="前10目标省份",
+        theme=get_theme(                                         
' z0 R; a, x, w2 T' L8 W% l0 [# p+            #设置相应的背景色调
' Q0 P9 {1 W& \5 k+            theme="Dark",
+            lineColor = "#FFFFFF",  
5 e  z9 N+ T# O9 e/ |/ _+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
8 O; q6 }  x  z; {+            regionColor = "#000000",  #区域颜色
7 M) P! f% L0 Z1 r$ J+ t- ^6 y+            pointShow = F,
0 U! f0 E9 X; \$ e9 k+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
; w6 Y' K( A- d0 f+ n3 [! T& _+            lineWidth=2,
% J. i+ C! H$ o0 N3 M8 m( o+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
5 ^& \( x6 i& u# K6 F3 z% Q+            effect=T,           
/ T+ T' o9 G9 W% u5 @0 ]' X+ T+            effectType="scale",   
) Z9 U- O7 `& f+            color="white"
+ g! \' Y9 c$ c+ N- O+ H& X& G+        )
+ )

5 \  s  t3 U1 V: [2 |

试试吧

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