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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
8 T3 g( g1 b* ~7 r$ O, [# 加载包
library(leaflet)
5 f: P- a" ~, _9 ]3 I; E# 设置地图控件
m<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
  Y; f5 U) ?4 }3 K" S$ kshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
* a. b6 h; U- z: M! NaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
9 x7 m9 y7 `2 D2 j. `- t

# ~% i# A' I8 U3 Z jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
3 D' j0 u5 n- ~1 g3 E  x # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
9 e% H2 S3 \! O

# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
+ ?( [% O( Z, u: v" L, y4 laddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

* U9 \6 O( x: ?
" C2 e1 j' u4 C1 [9 U- Z. F, X2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
/ J* s$ B% e8 P! G6 K' r9 }! \library(leafletCN)
) H: x+ E4 C6 g2 `# 使用这个命令可以直接绘制上海市地图
+ B! Z# O' z( {! Vdemomap("上海")
9 ^4 I- `  E& }* W# i, ?. }0 }
" k. H7 Y9 o: h/ d
4 {/ I2 x! w- w7 x* M# 管道流 单点标记上海交通大学
leaflet() %>%
9 e+ v/ @+ l& `; N4 T0 }+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
* Z- @; e0 J9 @- f" E0 i
! }6 y) n3 J1 ~8 ?" H  f- K! |
( V" I( z. |* A4 P6 o. o7 y) J& j1 q3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
; q  V/ z4 \: U- c. m5 Xdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
/ y/ S( v3 }& G% C# Y1 Rhead(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
2 }( m* l4 C9 R* A! {( MmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
! h9 n7 M: R( L) D2 B& [options(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
# M% `9 i" K! o  w. x4 y# k+            theme="Dark",
+            lineColor = "#FFFFFF",  
: d( k7 b0 t5 V$ c+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
$ d) M/ g( J" W2 t1 }+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
4 @; e9 g. o1 U- N6 Z4 M4 H/ H+        markLineTheme=markLineControl(
; ]1 p6 R, T5 B7 S2 D+ @' w3 j- l0 B+            color="white",
+            lineWidth=2,
* n5 J$ x' X, ?7 f2 k+            lineType="dashed"  
9 I* O, I) O/ T1 L8 C& S: `; ^; K+        ),
7 O  _/ B" E% ]  {# u# b& |# n+        markPointData=markPoint_data1,
" ~8 n) t7 Q: C5 U% Q" @) b( W$ [6 S+        markPointTheme=markPointControl(
& `/ E2 n- G/ z9 z5 f+            symbolSize=13,  
4 Q; t9 o- I! M# p! d+            effect=T,           
6 S$ P! b8 h( ?# \0 f+            effectType="scale",   
+            color="white"
+        )
% {. K& P. M: L6 q1 O+ P3 `; g+ )
  ^( G) |5 l' V. e9 {; [) ?


( B# E% L1 T% k$ O  M

试试吧

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