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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
) _. G* t0 g6 h4 @6 D+ e! Cinstall.packages("leaflet")
# 加载包
9 Q& [. \" `5 c: W! T, q8 zlibrary(leaflet)
: H3 R! \0 F& [$ z# 设置地图控件
m<-leaflet()
at<-addTiles(m)
2 Y1 r$ Z7 @' Q, x* _' L, B#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
9 C9 `, _: J9 S, Q* q" e  `addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


4 Q; Z, d/ N; }* \ jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
' F  C3 n% e' |$ Y # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

% [: c' N/ H$ n1 C# U
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
4 N, T% p+ v+ D( q4 M+ r  b# ^
# s$ _5 ?% V# i* A; c& |/ i5 I6 ^' D
" g; ~. F, a% G2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
5 b% k* A, f) c+ n. Oinstall.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
' d  w( c& _3 C/ M7 Q1 M) b" ?demomap("上海")
: t- [6 V! H# j; |
, [* g/ J6 c9 \" F& T5 ~
7 e1 Y2 D; B8 c; [7 Z, w: j# 管道流 单点标记上海交通大学
leaflet() %>%
- Q3 r! A) @) a6 v- C) v+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
! [/ \8 f! P, z! h+ O, I8 @

3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
( i2 b2 M/ k2 winstall.packages("REmap")
library(REmap)
9 w$ j  E- C  y1 j1 ?/ @destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
% B8 ^6 v/ `  G, f8 A$ D) Hnames(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
3 N1 u$ x( J  u- D* N$ b% O+ )
markPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
3 G; q7 n$ d2 o( b% ?1 l+ zoptions(remap.ak = "xxx")
remapC(destin,
; _4 M8 S1 S1 z( S; v+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
" E% q" B8 j! I" [7 _; _+            #设置相应的背景色调
+            theme="Dark",
  K: @$ F; _5 i, }. `5 p' H+            lineColor = "#FFFFFF",  
) p' R! w  x* F+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
& |1 W6 h# G3 q! x6 [/ \+            pointShow = F,
5 P! I2 X" I0 s3 F9 i( n* x1 b% J+            pointColor = "gold"
+        ),
* v. ~5 z: l% f6 f3 I% M9 J+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
. e6 G* n% }9 u+            lineWidth=2,
+            lineType="dashed"  
- y8 i* y; V, T. j+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
; d% D- l& t" @3 I+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
0 `1 {3 a8 S0 \+            color="white"
) d2 M7 z6 c# S; C  g# M2 p5 ?) I+        )
6 Q, z+ e, s/ [4 J: m& W3 d+ )

; ?0 w& \  _, N- [& X( \0 R5 [1 i

试试吧

好，谢谢楼主的热情分享的资料
3 c+ {! p, y  J' c: v$ R# S