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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
7 S# U( l+ N0 _8 S! w$ Kinstall.packages("leaflet")
# 加载包
library(leaflet)
0 o5 X# p: b6 y# A2 @# 设置地图控件
m<-leaflet()
. n5 O# X0 {" d, zat<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
( r5 b% p8 V6 t8 S1 Cshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
) x! O  Y* Q3 x3 w% g

! @  G, x0 H8 u" }( m- ^ jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
" s' X; i7 p+ @6 l9 @/ g

# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
7 S# B0 O5 u9 k( p7 Z3 q/ YaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

1 ]' b0 \  C, u! A# ~, o' E
$ P# E2 o8 p. G9 D6 ^$ D( P1 |2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
- o! z8 ?. n7 _5 a4 P% G" w: glibrary(leafletCN)
2 j5 n7 ]! Z; D: P/ n/ B7 U# 使用这个命令可以直接绘制上海市地图
  t$ V: ?0 J7 p2 b3 S1 f8 vdemomap("上海")


# 管道流 单点标记上海交通大学
leaflet() %>%
3 m0 y0 I1 O6 ^2 v. p5 ]. c, n+ Q+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
. o& f  h9 ~0 b0 K
' j  H, p2 L; s2 a3 M
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
  y: z7 ]/ f8 w* U& P" w6 Cdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
9 t7 m9 P. f3 e  m3 t; bhead(destin)
! r& b" }6 U+ I/ Y, _3 o4 P* `names(destin)<-c("names","values")
- B) ^& G3 [. DmarkLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
: _  e* N1 L2 g8 j2 X+ )
4 M$ {* q& i) V+ |! RmarkPoint_data <- markLine_data[markLine_data!=""]
" x! \2 p9 C6 p1 n# R  X" K5 RmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
* n& A. ^7 }, n6 O% eoptions(remap.ak = "xxx")
7 m9 X& g5 ]( s/ q  a8 I7 dremapC(destin,
' E$ \' @8 Q' a+        title="2016年2月6日 广州人口迁出图",
$ t: z6 s0 z& W7 v2 A# [: }2 r* Y+        subtitle="前10目标省份",
+        theme=get_theme(                                         
* U1 _1 c% T9 {/ b: D: l+            #设置相应的背景色调
+            theme="Dark",
5 H3 ?5 ?% e4 \4 y7 }+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
6 {/ P3 \" R" Q) i+ o+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
* f( `, R/ h$ P( i) ^7 F+        markLineData=markLine_data,   
: s! \2 }% U) E: Z+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
  j$ P; Q8 p) B- F6 f6 {, A+            lineType="dashed"  
# k, W$ U) T! @, b' E+        ),
+        markPointData=markPoint_data1,
' S$ n. a6 E+ t+        markPointTheme=markPointControl(
+            symbolSize=13,  
9 `7 W" F# F% q+            effect=T,           
+ p# I; s, ?$ K4 J0 ?+            effectType="scale",   
+            color="white"
$ r+ {' e, }7 G# c& K+        )
  H9 h, X) E& p. D' S0 C+ )



/ ?8 ?1 z: e6 u2 }8 ~% b5 Z

试试吧

好，谢谢楼主的热情分享的资料
, E$ m+ _# B6 m9 v