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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
" V2 x" \/ F$ j7 Cinstall.packages("leaflet")
4 L" E, a5 z& b/ _) p; B  p5 V) ^# 加载包
: o- a& n/ k* y, olibrary(leaflet)
$ j' j) H4 r* Y7 n# 设置地图控件
' {! ~! |; e8 p% xm<-leaflet()
/ ]- P7 g" i7 B: b: p) ^* U( iat<-addTiles(m)
# H1 A5 o1 ?; b8 i#  在弹出窗口中写一个html格式网页 根据要求来写
1 d- r$ e( q4 t4 V! z7 y4 lshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
# o0 U5 G( ?' F' [1 c! V9 X# i+ h( PaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

. b& V+ v0 P8 g+ _: E2 e' ?4 w
& {8 Q# E3 |! }# E; \ jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
. f5 x# ?/ x8 R: N+ @6 z # 添加marker
2 k- m7 q  R) ]7 i3 n* y" N addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


7 ~/ v, D4 p7 q' j2 \' }0 j1 \6 Y# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
5 Y9 |) P- ~1 H" {' B5 T' Y& t6 {addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
1 G& ?* O( n  x5 |( v1 ?  D- m

! T* y9 ~' |. v9 [; m# ], z2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
( M/ V6 t1 s" I; [" R0 dinstall.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")
* Z! @$ N" u0 b9 @

* s" Y) E, g$ l1 w7 w# 管道流 单点标记上海交通大学
leaflet() %>%
+     amap() %>%  
& K* U! Y0 _" ?8 A  F- x1 J# F+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

$ L% w% X$ {9 s" m+ Z
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
' i  o8 Q# w) E/ Dinstall.packages("REmap")
library(REmap)
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),
+                             destination=destin[1:10,1],
1 c0 ]8 N' J* W+                             color=rep("#fff",10)
" F7 t8 d: p4 Z# T$ J& e; E$ Q+ )
markPoint_data <- markLine_data[markLine_data!=""]
3 m( i. Y) x9 ~5 WmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
; f) N: j! F1 G6 J9 @options(remap.ak = "xxx")
remapC(destin,
# y5 [$ ^9 W3 V) Y+        title="2016年2月6日 广州人口迁出图",
. U; e2 w7 p, E% [8 c2 R0 ^+        subtitle="前10目标省份",
+        theme=get_theme(                                         
( M7 i& k" J7 `8 K+            #设置相应的背景色调
+            theme="Dark",
+            lineColor = "#FFFFFF",  
: F# ]$ |! x; U' d+            titleColor = "#fff",
, v8 N0 r. z6 U; \3 f+            borderColor = "#FFFFFF",  #边界颜色
- S9 m: I2 @) O- k: T2 W3 ^: {9 a+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
  X0 e+ @" ~  P; V1 O, o. c0 a+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
3 W8 X. N' v. R) V+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
/ B( [3 h7 k9 y: k+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
+ T; A9 k8 T, F. C# H+ C# o* X7 ?+        ),
+        markPointData=markPoint_data1,
+ H# i' t( R  Q& T# i+ ^. y3 a+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
$ a+ C. L0 V9 L% Z/ I; \+            effectType="scale",   
+            color="white"
+        )
+ )

试试吧

好，谢谢楼主的热情分享的资料
- \9 s2 s( ]% ^0 J3 p' a