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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
: o: ?, Y0 K5 k/ Y' x6 g( einstall.packages("leaflet")
. s3 H4 P/ @! W% @: |% C5 O- y# 加载包
8 f/ |+ l. U4 n* m+ t3 Vlibrary(leaflet)
4 h( g- Z" r/ Q% H1 Z& j4 I  K# 设置地图控件
m<-leaflet()
at<-addTiles(m)
1 @1 R( l; x* W#  在弹出窗口中写一个html格式网页 根据要求来写
8 o2 S( }2 \& d) A' {) pshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

# E7 x3 ^5 }/ s) E
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
9 l/ `& U7 S# s% v # 添加marker
- L2 J" b5 S3 K) v/ c addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

0 [! U) P* F( Z6 G4 v; Y
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
8 P! T. ~. `5 s
) L& h. K2 h# ?/ g0 Q
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
7 X" e4 o8 e8 E+ pinstall.packages("leafletCN")
library(leafletCN)
4 f; p; a$ ?" y( v" b1 x# 使用这个命令可以直接绘制上海市地图
* ~: f6 f0 ?  f+ \demomap("上海")

7 G$ L8 O) D% v
. u& }' ]6 n1 b# 管道流 单点标记上海交通大学
4 l! c/ o3 M2 {  gleaflet() %>%
4 o1 L2 n5 o* }+ Z3 v" ~2 R+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
- `' b! E. t8 e' M! J

  `2 q6 z" ?2 P; g3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
* d( z1 [1 I" P0 N/ k7 E9 klibrary(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
/ @/ h# R: g0 Q" [0 ihead(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
8 H6 D" ^4 L9 v6 R- [( @4 P' G8 |; c; p+                             destination=destin[1:10,1],
" A: e2 q/ S$ u) k+                             color=rep("#fff",10)
' `, j7 w8 p+ _% z+ )
$ W, N! \8 D  q: u. w; CmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
( l$ F, J. Q5 O# 要自己注册一个AK api key 不然无法get到经纬度
( Z8 {% G8 h, U) V  n. toptions(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
8 e* i: }$ A# K; l$ y+ _+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
+            lineColor = "#FFFFFF",  
$ |/ A, S: {9 i8 K" a: X+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+ m, P3 \; d8 v! p9 f( K+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
, [+ j8 j9 y8 `+        markLineData=markLine_data,   
& W; R. `' \/ W0 Q+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
0 F- o7 K+ b4 _+        ),
+ D) f+ ^% |- O+        markPointData=markPoint_data1,
: r; f( x, }- m$ p+ J* {+        markPointTheme=markPointControl(
+            symbolSize=13,  
, o* w1 X# D, N/ f: w: c+            effect=T,           
+            effectType="scale",   
. t  z9 s% Y' A  V- \, ^- i, L+            color="white"
0 ~! t6 V8 e( I# {+        )
+ )
4 w+ m4 H% F9 P# J
( m8 `+ ^, }: D+ x

. D3 [* G) y1 t9 o+ q+ ~

试试吧

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