数学建模社区-数学中国

标题: R语言 作业 leaflet leafletCN REmap 的使用 迁徙图 [打印本页]

---

作者: 1047521767    时间: 2021-10-29 11:41
标题: R语言 作业 leaflet leafletCN REmap 的使用 迁徙图
R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
3 M! N, q" z; C* f4 R# 加载包
2 V! f8 ?* `- d2 Klibrary(leaflet)
/ [5 K; y% @  Q9 v( |4 |# 设置地图控件
m<-leaflet()
1 C. r5 ~# L5 E3 s# yat<-addTiles(m)
6 m) G9 \; [+ D1 ?5 W+ L; F#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
% m. k* `( `  f5 ~6 R# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
, @* N" d+ y4 [0 ^6 y# l$ r

jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
7 o' g1 l3 s8 ` # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


: G+ @# e2 I; k; b4 h, k1 M' U" p9 r# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

' v2 K9 ^$ D. n
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
" E9 }$ k; x3 v$ dinstall.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")
6 m# |& ?3 y9 L; x1 N
9 G# N* y" i* S$ ~. [. U
# 管道流 单点标记上海交通大学
leaflet() %>%
+     amap() %>%  
  q3 }2 U% ?; {4 E7 h4 m% A+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
: M( {* X$ N& c- a
& i; D% q9 w! U
: C, Q4 [9 V  X$ q/ D; S3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
0 L  A+ o# B0 p) zdestin <- 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),
+                             destination=destin[1:10,1],
% n" n4 ^1 M: ?4 i; T+                             color=rep("#fff",10)
+ )
8 |/ O- ^3 m& V2 f8 JmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
  g3 X  u8 ]9 ooptions(remap.ak = "xxx")
+ P" [/ b2 A8 u/ }4 E5 `% JremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
1 H* f- M( e- B3 h' \  I0 \+            theme="Dark",
% G# r! O: G, |5 h+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
/ |5 A/ ~- j: k8 v+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
* Q3 g+ F1 V- ^7 _$ M- j) ~+            pointShow = F,
' i  K( H. Y0 V3 `+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
' f: Y1 Y3 d4 t! O% C+        markLineData=markLine_data,   
/ U6 \) F/ E( ]; W7 z6 r+        markLineTheme=markLineControl(
( F$ N' d$ K- I2 @+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
+        ),
0 G( R+ Z% n' c6 A1 X) v5 j9 B+        markPointData=markPoint_data1,
' |. S! W, I0 w, Z+        markPointTheme=markPointControl(
+            symbolSize=13,  
1 }; w, U5 M2 D$ C+ c! l+            effect=T,           
+            effectType="scale",   
! p- ?5 {, [7 i  ], }4 Q% o+            color="white"
+        )
+ )
4 m# T9 X8 {, A/ S; c


  G  U6 `% g. s9 y( v. c

---

作者: 试试吧    时间: 2021-10-30 17:55
好，谢谢楼主的热情分享的资料

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5