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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
/ p2 G1 \, y. v" K2 }+ ainstall.packages("leaflet")
# 加载包
( z  D6 I- h0 L  ~& ?- X# X+ e% nlibrary(leaflet)
* r1 Y. d& \" v5 U# 设置地图控件
m<-leaflet()
. c& \  ^6 f' b4 q$ X! Xat<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
" N7 _; p' J7 D4 [, p- b$ yshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
* F. h7 _* G9 @) H# 添加marker 自己选择需要的经纬度 popup：弹出窗口
8 {1 A) x" L. `/ `5 YaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

) \: }/ A+ c* }
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
/ Q/ U" Q4 ]$ q* v' S- J # 添加marker
6 y8 h1 P* h" o5 @2 S$ Q- Q- e addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

3 e& Q0 A# n6 U  B5 }5 e: M
# i: ~7 J0 C: v: [, m1 g- Z3 U# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
+ h4 {0 @  z0 l' o4 t. i  CaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
7 e+ ?( v# R) i
- {) Y, ?0 T$ K8 `, p
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
( F6 n) h! M8 I# V; F9 Oinstall.packages("leafletCN")
5 e1 t6 r& N* c8 Ulibrary(leafletCN)
" L8 }" h7 D6 _3 k  |% k' Z# 使用这个命令可以直接绘制上海市地图
' Z9 F2 `) j% X, {. \demomap("上海")
: {! G% ^; U5 _, R

0 v$ p+ A( \1 E# 管道流 单点标记上海交通大学
  v& x$ _# Q& Y  X9 r0 @' [leaflet() %>%
: T5 |# O. e% J) j1 C+     amap() %>%  
6 ^2 D7 E3 l* o9 D' O+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

% y+ _5 v% w6 ^8 _
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
( y& }' M0 y$ j# I: H4 Minstall.packages("REmap")
library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
! k4 P7 G, R6 s/ [names(destin)<-c("names","values")
' `' R# h# w; v3 JmarkLine_data <- data.frame(origin=rep("广东",10),
; Y: q! S, ~; g4 G( I5 M+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
! B& K6 M) D2 N- z+ )
markPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
. @8 ]5 V3 ~" E+ C+ Moptions(remap.ak = "xxx")
+ b' d7 f- B# u- r5 d2 ~, z& o# w; |remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
, u+ ^0 o. ~! b$ i! F$ g+        subtitle="前10目标省份",
2 k; t+ q2 c# |+ [0 e+        theme=get_theme(                                         
+ E6 }9 ^' q& r2 |' S+            #设置相应的背景色调
+            theme="Dark",
+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
2 x/ ~& f* k, x- v+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
# u3 L8 c  L, O% X* ^+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
% C& x# L1 _8 Q, w+            color="white",
+ f' T" O. `: s& p5 w, b+            lineWidth=2,
+            lineType="dashed"  
1 f* x+ {1 \' h4 D: [: w+        ),
+        markPointData=markPoint_data1,
0 g+ B6 g2 B6 c( v1 v+        markPointTheme=markPointControl(
+            symbolSize=13,  
, x0 |2 z9 d6 P+            effect=T,           
+            effectType="scale",   
+            color="white"
) i! s8 D! |8 M4 F8 G6 X+        )
( `; x" \7 d* N* k5 F- a+ )
, d& G. ?- s$ p
5 F7 S: i: o+ |) u* E# U* [' L) p

5 r5 U$ S, j/ a2 g5 a

试试吧

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