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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
library(leaflet)
, r. N. e6 @- t, k6 E+ e# 设置地图控件
4 q$ M9 X# ?* @% z9 P2 S3 N, Jm<-leaflet()
at<-addTiles(m)
0 u' |: z+ _. j$ Q  X3 p% t#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
2 T3 ^0 G, V3 }, N+ HaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
+ D) D7 J8 E- O+ q& c

, }7 R/ ]7 t, I/ R: m* M jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
3 D1 P+ f; U" A$ H# q # 添加marker
* z) ^0 }+ d; {& Y* G addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

( x4 j( ?" O. b8 k; z
' O% n, @& C4 m" M# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
' A5 z1 [' R7 {6 O
* a1 W( y0 O! B8 K& I4 s
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
! c) T9 A6 ]6 T: ^8 [install.packages("leafletCN")
* D# o& j  o; ~# Jlibrary(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")
" y7 m$ r% D/ Q& g  W& Y& v0 \' o
( ^8 V9 s* l! R  Q3 P8 U
# 管道流 单点标记上海交通大学
leaflet() %>%
+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
7 e- x# f$ J% J
* ?, z( W. L- \
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
' D7 f5 B% e: F5 C' X9 i: ~install.packages("REmap")
2 l+ y3 t) x+ u( _/ plibrary(REmap)
2 ]6 n9 D+ I! _; T6 T+ `; f$ rdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
* f& i$ d3 y# G* a# p, bnames(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
markPoint_data <- markLine_data[markLine_data!=""]
8 S( ]! ^: D( cmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
; L8 B8 n+ R# }" J, y8 M1 koptions(remap.ak = "xxx")
4 o1 o2 p* _. |3 `" z- f  iremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
9 \; ]% F; L# P& E+        subtitle="前10目标省份",
- Q$ e$ a: e6 w, R1 ?& o4 x5 ~* A9 @8 y+        theme=get_theme(                                         
+            #设置相应的背景色调
* e+ _" J6 w* i4 ^) p0 k+ j. U9 P+            theme="Dark",
+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
) ]  @7 r- g& H% T* O/ w; f+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
4 `# j5 N) a( g+            pointColor = "gold"
. u' {! [$ q/ Y  R) u7 }+        ),
% }5 D# I) }, H4 x  o1 U+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
8 G$ Y) W/ z8 w, t8 l5 {+        markLineData=markLine_data,   
3 i% t4 l$ d. @2 Y+        markLineTheme=markLineControl(
! F8 x  x) S- v4 j( b( ?0 B* c8 p+            color="white",
9 S+ \% {; k& W" U7 ~" l3 L- r2 c+            lineWidth=2,
% U, H% Z" G: d# W, j. A  |" q! |; w+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
! z5 V9 i6 _7 S8 D# ~' {+        markPointTheme=markPointControl(
1 r- [- {$ @! B# A4 r+ p+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
+            color="white"
+        )
+ )


; r9 b, ]% L+ w$ ~) {
! O! l! E' V' x  c1 m! X

试试吧

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