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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
6 |9 _# i9 `" h6 b3 D# 加载包
! ^/ }5 S8 `! a5 L& ulibrary(leaflet)
5 L9 l/ Q8 a: M- r& y) O( O# 设置地图控件
m<-leaflet()
at<-addTiles(m)
3 D0 D& e. E, K5 l6 k0 j$ \#  在弹出窗口中写一个html格式网页 根据要求来写
! I( q- e: l* Z- L( b9 E- D; Yshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
: g$ R1 Q7 n! \2 y( [$ }8 B# 添加marker 自己选择需要的经纬度 popup：弹出窗口
0 o5 O7 q5 C$ \addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

1 ]' }. b2 A( m# c$ z" N
1 i" e* S# m% s, p$ E# R jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
* d* l; p4 ?7 J9 B) ?7 x addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


/ S7 m7 x' s  P; F# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
: Y, \: b8 V$ j0 ?- J' g( C% O

$ k4 I* q7 d$ k! X6 o2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
$ X; J7 a* d  Dinstall.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
+ n* r9 Z6 _- ^demomap("上海")

5 ^3 z/ e* R$ j, V) B. _. M
/ E$ H$ U* Z# p; ^# 管道流 单点标记上海交通大学
) @; ]: E1 Q+ [* G# ^3 a* aleaflet() %>%
  M- }4 E" s: ]( j; g( x8 s, U+     amap() %>%  
9 O" w2 z' l' Q6 M7 t, Y6 v4 P+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
- M* |- J, M; y8 ~4 R

) v2 \( |- l4 ?' Y9 [6 l  l6 r; g3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
+ A2 l7 X3 V+ i" Y/ zlibrary(REmap)
+ d: k' \6 `6 K2 Wdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
( M0 P5 s4 O$ Z( D- L4 k1 nnames(destin)<-c("names","values")
* i% D3 ?5 x) j) Q1 v  x4 B& pmarkLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
  s' O- }+ J! x) k: U+                             color=rep("#fff",10)
+ )
' J( C; u3 L: K5 h4 N7 Y! SmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
$ @* t: x2 [' |% b! m4 t) l# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
! Q7 c# L# @1 }- R4 w# S, Z& QremapC(destin,
% _2 D: n2 p/ E+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
. r3 k) Q$ h- j' M+        theme=get_theme(                                         
+            #设置相应的背景色调
" ?. H$ ]9 g* h4 M/ O8 x+            theme="Dark",
+            lineColor = "#FFFFFF",  
$ c, P' z  R& t, T$ b7 u+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
8 N$ V5 e3 {5 T! ^4 w7 Q+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
& m( p! p# ?  \" t; J$ q9 K+        ),
$ L# f& K9 [+ e+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
* _( m- A- i2 q: @. B5 M+        markLineData=markLine_data,   
  S) t' T" @6 o0 A4 n+        markLineTheme=markLineControl(
+            color="white",
1 ~, g. J, R$ G% Y6 |5 h+            lineWidth=2,
+            lineType="dashed"  
( d( d3 P3 y- e1 H) P+        ),
+        markPointData=markPoint_data1,
: B- k% s/ p) i/ ^+        markPointTheme=markPointControl(
/ u: J/ z  I, R. h' [) X9 v+            symbolSize=13,  
' A+ U, {3 l( d) ?: E# |+            effect=T,           
+            effectType="scale",   
6 u/ p: v% ?/ J4 O6 y* x+            color="white"
/ @# a4 P/ V$ o+        )
) J1 d& b4 e. e+ )


6 h5 s  j0 V' L: t  c

试试吧

好，谢谢楼主的热情分享的资料
# X2 ~; Z" g. j* Q+ J1 }2 D