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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
; A( |3 G) x! X$ N7 Y' n# 加载包
- p+ F& g9 Q- S9 J9 _8 Dlibrary(leaflet)
% c& W* I. M  I6 N; A1 E3 k- F# 设置地图控件
m<-leaflet()
3 ^' ]9 E) M; J$ e( Mat<-addTiles(m)
! x1 P# m' O& b1 z+ C* G#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
. J  ~2 A( a; N- P  _% uaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

- c# E& V- C* q( E+ h  P; E$ d
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
: h2 ]' y' b. \: h. L
( \4 t* M# {8 M* f) i. v
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


7 S5 z; D( ^! i/ A, U2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
- z3 g) U) n7 D2 Y9 A! minstall.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")

- U: f1 \  Y5 Y: u
! j0 S8 O+ u! R9 ^8 r# 管道流 单点标记上海交通大学
leaflet() %>%
+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
* E  u9 E- e4 @! H7 I

3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
) ]; V: F9 l: X# H: r3 oinstall.packages("REmap")
library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
( A5 t) O) b( v6 s( l9 ]( Dhead(destin)
/ w( ^- b, x, L+ ^& I9 rnames(destin)<-c("names","values")
, K2 s* N! B' t' k1 Q; z/ WmarkLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
markPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
" D7 p/ Z# S; R- ?; a6 u$ I) l) v# 要自己注册一个AK api key 不然无法get到经纬度
% R" J' S4 j+ A( t- ]# yoptions(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
7 C: y1 w. ^3 k' b! [+        theme=get_theme(                                         
+            #设置相应的背景色调
# R6 p2 E1 b! B4 K+            theme="Dark",
3 P( U% H* [) l" M" n" ?( U+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
3 y1 C( z; L3 m0 [' c+ x+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
6 }' k6 |# ^4 I6 y; K+            pointShow = F,
+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
* X8 C' l8 N% e8 M+            color="white",
8 @8 g. q* {) M% [+            lineWidth=2,
2 e4 N+ t8 f  b# p5 S$ r* C+            lineType="dashed"  
( o( N- E) S% o# ~1 V! I+        ),
  F) @& X3 z; Z+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
2 m6 H! j" j; R# t1 f3 _5 D$ p% B+            color="white"
+        )
+ )

6 Y: }+ Q$ d. @4 R1 Y3 N; ~9 h

1 ?4 k* g% {+ ^" N- Z, l, g9 b

试试吧

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