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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
6 ^2 _1 ]9 h2 N; Z7 \7 B% x7 i' z! ^# 加载包
library(leaflet)
# 设置地图控件
m<-leaflet()
at<-addTiles(m)
& f" ~3 K$ Q% S7 H2 W  v#  在弹出窗口中写一个html格式网页 根据要求来写
/ }) B2 ?8 j" G* c$ K* |0 Gshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
" A( Y, J* h6 y7 A/ }9 T3 c# 添加marker 自己选择需要的经纬度 popup：弹出窗口
2 ^: a$ k8 ~  t( \addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
7 v: }6 J. ^% Z: }+ @% X- T6 ]

jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
( j1 r/ V% {+ |- ~1 X5 c # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
& y0 l; p8 x& E2 f
$ i8 M9 Y' Y. b
4 z' R! ~3 ~; E: c# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


; T* F$ w) h+ R5 D4 P2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
+ r% e% P7 \6 o$ b. h% S+ w1 v) o' |# 使用这个命令可以直接绘制上海市地图
* ?8 I) _- V* ~$ a+ wdemomap("上海")
2 B2 {' a& T. n# E+ Z
  k0 a- ]+ x0 P$ w% Z. p
  S% H; t: n% E# 管道流 单点标记上海交通大学
, o8 m! ^5 A+ _* Pleaflet() %>%
+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
/ _) z" [; ?2 f- B# B4 ]

3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
7 p$ ]# u" e- x6 _install.packages("REmap")
library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
- @7 {7 f9 n2 n6 `6 W* G" ]+ g9 Shead(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
, n+ Z: P9 N) T$ H0 f, l+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
6 t& X/ k3 {; v2 ]0 g  Z+ )
markPoint_data <- markLine_data[markLine_data!=""]
" P: m7 a' m& c% z% B8 TmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
6 g) z' `3 A* z3 |# 要自己注册一个AK api key 不然无法get到经纬度
% T# d4 K1 s8 E) _# U3 }options(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
8 u  x% I: z  Q( A4 }+        theme=get_theme(                                         
+            #设置相应的背景色调
8 f/ ]% v# ?- _# A6 f- Q+            theme="Dark",
+            lineColor = "#FFFFFF",  
! s: v- O9 Y7 f! x& h+            titleColor = "#fff",
4 R/ X  Y& y: a& T% _- |$ Y: F& C+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
, Z# e. y/ S9 C* t# V. W+            pointShow = F,
+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+ J  `0 V; `8 n+        markLineData=markLine_data,   
" |" ]& w& F' a+        markLineTheme=markLineControl(
+            color="white",
# d1 g& Q  k5 R9 d) W9 Y% _+            lineWidth=2,
+            lineType="dashed"  
) g& y& S/ Y/ x3 o7 Q! o$ b$ L* m+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
' u/ B" a  v: Q& e+            symbolSize=13,  
3 V% c+ F; R: F. f3 k8 V* O+            effect=T,           
+            effectType="scale",   
* Y' L: ^- c3 P; F& w7 C+ l  h+            color="white"
+        )
) q" X7 {7 P( Z3 k* _8 l+ )

* L, `) L1 e7 p7 G$ e

9 T: B6 ^3 P+ E' T, R7 w9 H# r

试试吧

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