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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
: f+ w: m) }4 P9 ]library(leaflet)
: ^6 P: z: c: X: u: r. M# 设置地图控件
m<-leaflet()
: P  J2 I+ O+ T2 tat<-addTiles(m)
7 J: F7 s8 A7 V) m#  在弹出窗口中写一个html格式网页 根据要求来写
3 ~2 ?0 A3 q; @5 P3 K/ O) x- Zshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
, D& _5 f; J" j" _+ O# 添加marker 自己选择需要的经纬度 popup：弹出窗口
4 v! r) T% Y. O# YaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
9 F! x, Y6 w; I/ ]1 N  C

# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
; H+ k4 Q, y2 r9 eaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

2 J; N* _9 ~! e1 R  ]$ M- F, q
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
2 D4 y4 a5 Z7 N) E5 Ninstall.packages("leafletCN")
library(leafletCN)
! N" T5 M& @  O9 G! f, X# 使用这个命令可以直接绘制上海市地图
. k: u( ]/ Z# ~9 V: y( L2 a& u8 wdemomap("上海")
  @+ }2 V; N, J7 ]# d* K8 ?' s$ K7 P

/ W. j: ~  W" `+ y8 ~  V# 管道流 单点标记上海交通大学
leaflet() %>%
; l+ x" v( o5 A' ]" N" F+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
  Y. L8 d% \% N2 s
/ y& X0 S. o( U/ l3 C1 x6 _
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
; i/ o& u. m# d9 Ylibrary(REmap)
2 |- s3 Q) \# K8 A8 Ndestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
) t2 b. d8 r/ ~6 J5 U& w% chead(destin)
/ `% n9 i: U/ snames(destin)<-c("names","values")
/ N" Y  X/ Q8 H6 j0 Q0 P6 dmarkLine_data <- data.frame(origin=rep("广东",10),
' O, r6 z5 {% M7 s8 ?# y+ r& b+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
( q' f% J5 K) y% W% omarkPoint_data <- markLine_data[markLine_data!=""]
3 D5 L' H- }7 x. n! C- fmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
( {; W6 `9 Q& @& B. j! z  G! uoptions(remap.ak = "xxx")
remapC(destin,
6 h: p; r. u4 i# _2 P0 _" Y, J+        title="2016年2月6日 广州人口迁出图",
4 S& ]" I7 I5 n/ P4 L4 ^, Z+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
3 h/ \) O4 s1 }- m9 w) r+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
2 s& X5 J& N# l9 @. z8 N7 Q+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
6 A" ]$ n- E& h/ r4 r+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
1 F, J7 v1 z1 a8 r+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
. r9 v9 d3 I- X% ]6 _+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
+            color="white"
+        )
+ )

" `% s) j0 W; G9 {$ E- H* C

2 T" E9 D+ I5 `: ^3 q* h

试试吧

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