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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
/ z5 B: y* K; \$ Q# W- U4 pinstall.packages("leaflet")
# 加载包
library(leaflet)
# 设置地图控件
m<-leaflet()
/ ^! e% q4 a2 G/ sat<-addTiles(m)
  n- R  {# v' E+ o#  在弹出窗口中写一个html格式网页 根据要求来写
9 Z/ }' M+ A. R- p1 `) ~, Fshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


8 Q, p  Z, W" A3 z5 Y7 R jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# t; u$ B& g; T$ C # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

3 A7 i& N( J  J7 f7 u; P
& p, J  |; l7 c8 {1 X# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


# S. Z8 `5 V' B6 R3 F3 M+ G# G7 C2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
( C% b' e9 {1 u) p& Ylibrary(leafletCN)
" [$ M( M) h( s3 b- F# 使用这个命令可以直接绘制上海市地图
2 Y+ X+ a9 J- j" ~5 Q1 ndemomap("上海")

8 w9 O: l5 t1 D0 S& D
2 P" M" n- ]1 V2 M# 管道流 单点标记上海交通大学
, Z' @+ V# m* q; _$ [3 Mleaflet() %>%
+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

; H& R" G8 B3 g8 N) ~
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
% w, u" p2 R! Winstall.packages("REmap")
library(REmap)
0 N" c% L- Y# j$ |' Hdestin <- 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),
" o$ M! x5 w7 p3 z9 u+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
7 y9 z. j) I7 s$ J) K+ )
4 i! S& L+ [+ v% B8 ^" W( mmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# m1 F5 K, Z; \" o; g( l# 要自己注册一个AK api key 不然无法get到经纬度
# y" B( a( X, T" A$ e6 d3 xoptions(remap.ak = "xxx")
remapC(destin,
1 @7 C& U4 A$ `, K7 ^% l+        title="2016年2月6日 广州人口迁出图",
% ?2 N; ^" f0 {9 f* ?% f+        subtitle="前10目标省份",
1 O6 C. I) e' v3 M+        theme=get_theme(                                         
0 C, G5 s0 `2 i% k3 d+            #设置相应的背景色调
5 O$ z" m* b& X% s* j% a  f9 r+            theme="Dark",
; `/ C. \3 B( [2 }8 w+            lineColor = "#FFFFFF",  
, b. z! ^* z& p4 L+ i+            titleColor = "#fff",
; x+ s# h1 ^8 P: J. O7 \5 b- O. n+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
7 `# ~" Z, _, s9 J( r+            pointShow = F,
$ L# y% E! `; l8 E( i, x+            pointColor = "gold"
+        ),
' F+ w( a; j) @$ r+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
" m# l  T4 J9 [7 l: i4 K7 _1 b2 G( U+            lineWidth=2,
+            lineType="dashed"  
+        ),
$ N) r& ~6 H9 T9 K+        markPointData=markPoint_data1,
! r/ o8 e1 a% d+        markPointTheme=markPointControl(
) d% p7 l6 Q+ F* ?- p9 m+            symbolSize=13,  
+            effect=T,           
5 z7 j2 c7 Q' D5 Z$ L8 x5 D5 [+            effectType="scale",   
$ u, p; L9 ?* C  ]+            color="white"
8 d0 X/ E4 d$ {. |. Y+        )
9 b8 p- Y: R2 A- b1 D$ G+ )
5 S, H. V& v/ O- \0 }& a
8 ~7 U5 ~) r6 ]

9 ?( N- @4 w7 q8 L1 }: k/ K

试试吧

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