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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
' t: _/ Y4 N+ P4 }9 }' [+ A0 Y+ S6 {# 加载包
library(leaflet)
3 d8 b1 J4 O/ U7 H" n; F6 P# 设置地图控件
m<-leaflet()
# k+ W5 F% Y0 L4 O  Y' [at<-addTiles(m)
/ M6 w6 l& R1 g4 F( o! O7 |9 `#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
+ {+ \: N- r7 o( \: i# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
3 f& U8 o4 {- j; k
, c! e* U) ^6 Y3 T3 B% }, t
6 @1 W# f3 n% S, ^6 b jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

1 b$ z% Y6 N$ X
$ \$ z/ _$ |% X# b' N# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
) s! e0 H. w' l8 JaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

5 K1 `9 s7 u; Z! h" _# U. X
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
; ^: k/ s* E, V0 `" s" q# 使用这个命令可以直接绘制上海市地图
demomap("上海")

2 J' M6 W( ?2 o$ _  J! C
# 管道流 单点标记上海交通大学
, @7 q& ?% q3 [0 }) U) |leaflet() %>%
+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


( `/ E3 R. `# `* U  _/ d$ L3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
5 D& p9 U1 o- v9 M# [$ E! _destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
, q' i. U5 B# D1 W# u+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
/ E2 o1 R2 K' v) i5 v3 w( i& S; c' S+ )
. R9 r8 T4 F# I3 r5 p  dmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
, j1 C4 H8 K' V' u4 j5 Ooptions(remap.ak = "xxx")
4 ^& S: S% G3 d0 p9 E$ I* _. e2 fremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
0 l* p6 W; a% }& g  w2 E9 B+        subtitle="前10目标省份",
+        theme=get_theme(                                         
( {' O! u# l/ q  k+ x+            #设置相应的背景色调
+            theme="Dark",
* O" z- d- R: ?+ j$ b* C  R+            lineColor = "#FFFFFF",  
7 O7 V5 x3 X' M" b7 F5 C8 O! H+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
% ]1 `) W+ |  i1 s( E+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
3 {+ J; Z: y0 i) g* l4 ?1 Z+            pointColor = "gold"
9 P) o4 Y6 V* ~/ E3 W' j+        ),
9 v) J( z& K: _: I' S8 E: Y  h3 ^+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+ V7 A; y' r9 A2 J& J: L6 g7 A, J+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
* J9 V. Q0 L% P; r7 X* f/ B+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
" v/ j0 i3 F/ H/ y& g) Y+        ),
- {) O& }, _  `* o) F# W  u+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
2 r7 b, T! I  z) O& i5 K5 o+            color="white"
+        )
" K9 I( ~; ~3 F+ )

3 A' t8 w; U7 w5 t( I2 U" K

! |6 c. E/ y5 V/ b; u6 W! P! A

试试吧

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