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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
library(leaflet)
6 w3 C8 i1 r1 w9 d# 设置地图控件
m<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


: W" L: P. Y' H+ p3 r  F+ J jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
2 l6 \& d) l# m3 \- | # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
1 D4 |1 h8 e# W! u, M+ g/ _9 \

# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
! t% g, W; Z0 s# c" SaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
0 Y: a7 u: p5 y% j1 ^6 j
5 E- o4 D- w1 S1 V: ?& H
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
" o& l3 Y# S' }2 ]! o( s7 ~install.packages("leafletCN")
) r8 O( O% T6 \7 z5 m0 q0 u4 M. Klibrary(leafletCN)
" ?  j  x1 P# O. m0 H: T# 使用这个命令可以直接绘制上海市地图
demomap("上海")


1 ?- b! M' @% P# F# 管道流 单点标记上海交通大学
" `. z! P+ L* t/ k2 h; x, Tleaflet() %>%
/ N$ J- d6 S. |) Y- R+     amap() %>%  
' S; Q' ^! p7 ?, [6 |% B- L* s+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

- A' ?9 e' a. q7 M1 R  ~
0 |" B: V1 k( j- p$ n3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
) o# N5 Q4 ?0 minstall.packages("REmap")
# _- f9 B1 o* P. g6 U9 ilibrary(REmap)
/ \% N2 p8 K* _destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
  b6 ~5 I+ C1 F8 Jhead(destin)
names(destin)<-c("names","values")
# l  t* e" A" {7 l  O7 [markLine_data <- data.frame(origin=rep("广东",10),
- w4 k& [. Q3 v! H: ]' C+                             destination=destin[1:10,1],
4 g2 K/ s' V( }' R: v+                             color=rep("#fff",10)
8 u4 ?6 d* L6 D- {# k+ )
markPoint_data <- markLine_data[markLine_data!=""]
, Y. M  B. z2 `: w% F! `9 o4 L% Q4 bmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
7 u& i/ k' ?, Toptions(remap.ak = "xxx")
6 X$ G$ y) n( ?- l: {& U# K% eremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
) h: B/ b  ^/ ?7 @& `' D+            #设置相应的背景色调
+            theme="Dark",
+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
6 G* _# A& H5 \& S+            borderColor = "#FFFFFF",  #边界颜色
: i% e4 ]6 `0 s  X' M4 y+ T+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
; i3 ]3 ?, t; z$ w% _+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
2 f+ B1 \+ l* ~) }+ J: x1 u3 _+        markLineData=markLine_data,   
' q4 ~- h5 _9 o7 o2 p: ^+        markLineTheme=markLineControl(
1 X6 W8 h! }* S2 z  `3 C. `8 X' o+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
  P2 c3 A! f& v' b# B0 g5 {+        markPointTheme=markPointControl(
+            symbolSize=13,  
7 B0 Q2 b& G' b1 ]. `% g9 L+            effect=T,           
( p9 t* Q! D4 A( z+            effectType="scale",   
+            color="white"
+        )
' W" ?; |3 S  y2 f* n1 ]+ )

6 _( K* c3 N+ B$ g, Z/ A

  M5 _# t8 l: _$ k- B9 O

试试吧

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