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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
0 W& J' _5 Z# |# 加载包
  I$ }- S  T. n9 K' m7 [2 Mlibrary(leaflet)
/ w% }" V) X0 M& y& H/ t& D* ?# 设置地图控件
m<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
: Q6 c6 e# f! }, F% e2 ^1 w- bshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
, d( Q6 q6 R4 N" u: naddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

" f  B) Y( g; R8 ~- c9 W) d
8 H% \6 c3 I) L9 }, ^1 W jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
$ Y9 j  l% h; }9 I0 Y5 \$ n. j  L
% ?$ R  w* l9 [, [+ Q
! n6 s: o4 r3 Z3 S# \9 |# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
, U4 w/ ]1 M' o! maddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
' J2 \: h5 s) S; p" y7 |
3 Y! z& s; V6 L, C# A/ ^5 q9 [6 e
, q  x, X$ Y) Q% J4 q. D2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
) g0 r) B3 B) c! Qinstall.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")


0 l- }3 s2 _$ H- r) C5 d8 {. C, I# 管道流 单点标记上海交通大学
leaflet() %>%
1 w; e# f+ o8 q; U& v' n; z; @+     amap() %>%  
( |. H  I% K" l# X3 S9 U4 t* S8 p+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


( V+ \* u4 R1 O0 Q8 ?/ t0 E! U3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
( v2 D  Q; C4 b& R! N1 Xdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
/ V3 t8 }- T+ X$ `  J: f% w9 q" U* I6 cnames(destin)<-c("names","values")
& `$ s2 g5 [% ^) ^markLine_data <- data.frame(origin=rep("广东",10),
1 p6 r  Z  i3 s+                             destination=destin[1:10,1],
$ z, L7 p5 P$ \- @) u2 l+                             color=rep("#fff",10)
+ )
1 H  d0 A  U) x* N* QmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
: w" M# W2 c6 A  Moptions(remap.ak = "xxx")
0 l7 ]* {3 J. x1 y; premapC(destin,
+        title="2016年2月6日 广州人口迁出图",
  A- E4 ?! N2 q" G0 _7 U+        subtitle="前10目标省份",
' F" ?( T8 X' F+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
+            lineColor = "#FFFFFF",  
% H/ y3 k. f! k8 @. h6 ~+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+ T4 [) V; z$ @+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
* [! b  w. u( q) d, y' {/ M+            pointColor = "gold"
; d5 G! N+ {2 U) I+        ),
1 C* T0 U5 {! ^+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
* J" @9 d% g! {3 s: x6 H6 P+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
6 i# s, E' R$ @1 B+ w+        markPointTheme=markPointControl(
7 V( d3 }% ^8 e* E- Z" B+            symbolSize=13,  
" G3 s: o4 k+ u  S+            effect=T,           
+            effectType="scale",   
+            color="white"
+        )
+ )

- Q2 R( b3 t: y0 u: k0 p5 Q

4 E- X! F+ Z0 P0 F0 a% [

试试吧

好，谢谢楼主的热情分享的资料
$ U9 A* Q# I9 l3 M! m" t: D