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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
2 u0 L: L0 `- u5 r* [install.packages("leaflet")
1 s. n* V( y- l+ g7 h- W9 A8 Z1 H: N# 加载包
4 b9 }5 M; B$ H. a4 [# K- g7 alibrary(leaflet)
& @$ @" \, v5 `5 ~# 设置地图控件
1 r/ o0 m; q  M( Qm<-leaflet()
at<-addTiles(m)
# N! W2 D- m8 H; z# U* Y#  在弹出窗口中写一个html格式网页 根据要求来写
% P  u3 h; ^9 e4 ~& lshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(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)

0 Z) F, j) j) P6 g  G
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
0 F/ w" i. N9 |( ?" X2 B  C6 b- ]$ }# 使用这个命令可以直接绘制上海市地图
demomap("上海")
2 d2 d/ w7 i% `7 W
. E$ L! f; t2 u
( r1 ]7 J' u+ M# V# 管道流 单点标记上海交通大学
leaflet() %>%
$ a8 u0 x" c0 w0 ^) r+     amap() %>%  
# _" V6 f- V& ^( `; c2 J+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


! R/ f# E) i+ F" D# O; I' w3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
! @- C0 w+ w! }* J4 Finstall.packages("REmap")
5 @1 \/ k. X( X, ~& Z* f3 }2 E) l9 `library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
! {* D2 m6 v5 E. b* Rnames(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
9 Q; U+ B5 j0 u+ l, b+ O! ?+                             color=rep("#fff",10)
+ )
- Y) e, C3 B' A2 G8 M/ }8 P- RmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
/ ^: |; w. V7 aoptions(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
( E# ~, l! X! ~: H+        subtitle="前10目标省份",
& U- R4 `- H. l3 k+        theme=get_theme(                                         
+            #设置相应的背景色调
1 H/ U* W% _) W5 h+            theme="Dark",
+            lineColor = "#FFFFFF",  
  x4 J( H* c+ ^& e: E+ H' ?+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
" i0 g: k9 Q& d+            regionColor = "#000000",  #区域颜色
  R, x: u2 e; P9 d7 M& q6 W+            pointShow = F,
: u6 d8 t( o7 r9 h+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
  s8 z9 D( ~( ^1 _: s2 B+            lineWidth=2,
+            lineType="dashed"  
% A" \3 K9 g- o) C+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
+            color="white"
/ C' p0 ]' Q. Z# r# K+        )
' z, C9 B. `, h* O/ d+ )
6 J  c! C" z/ q6 o9 n/ q% R3 \' [$ s8 Q

4 ?7 R' `" l+ t7 U6 t! k3 l

试试吧

好，谢谢楼主的热情分享的资料
# P8 [. T# z5 [