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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
+ c5 ~' z8 t! qlibrary(leaflet)
+ w0 Z# S" `4 I# E1 A0 C# 设置地图控件
3 t( |: E" x2 x$ w4 F. zm<-leaflet()
/ v- B/ v# h  P9 c! W+ vat<-addTiles(m)
4 Z% `; F% b, E- |#  在弹出窗口中写一个html格式网页 根据要求来写
# m. p* W2 r4 W: l& i# L2 r: H" p1 Gshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
% D1 G  r( h, X5 L3 b! I7 ^# 添加marker 自己选择需要的经纬度 popup：弹出窗口
" x; F# C) s  l, f$ D" KaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
4 `4 F5 e  |8 B" n9 a9 j' c7 b

jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
2 _! `: J* w8 }7 e: ~3 G' {, ? # 添加marker
! b" s" D5 q- L9 {; {+ l1 Z addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

! h4 _. H. e, y2 Q3 M
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
) h0 K% r6 d1 V. h: W- I+ daddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

! I+ c% t" ^, L6 j% L8 R9 V" Z
7 X/ z7 b! T) D* g9 j2 \3 F2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
" f8 o0 u" r% c* }' |1 e& p! Ninstall.packages("leafletCN")
; @3 v5 J2 J- ~6 @library(leafletCN)
) L9 n4 s% B( j$ x# 使用这个命令可以直接绘制上海市地图
demomap("上海")
# g! {& G# |, D* l8 d: a% A
# `4 ?4 p$ V: D2 J& n
# 管道流 单点标记上海交通大学
8 @. Q7 T) t; u; ]$ D# e1 o' Kleaflet() %>%
+     amap() %>%  
8 g- D2 k+ k" r0 D5 T/ P/ T+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
7 N6 l" v( D( i
) O2 v" E' ]: d7 _2 w7 |
, J9 D9 Z, I) g& o/ m3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
, l9 p  `/ C+ j' }9 u. finstall.packages("REmap")
library(REmap)
0 X, Z# K" L; l- O1 vdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
. a/ M6 f8 l6 P  l4 R0 t& S' M* ehead(destin)
names(destin)<-c("names","values")
3 R; K7 i. U& p$ Z# P% pmarkLine_data <- data.frame(origin=rep("广东",10),
8 p+ B4 l' f- j- K+                             destination=destin[1:10,1],
4 P5 W' {, S" ]" Y! P+                             color=rep("#fff",10)
+ )
, A$ x* S( d2 q* \markPoint_data <- markLine_data[markLine_data!=""]
" R3 m8 p& C1 b$ m* P0 fmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
7 h7 E& z: ?7 O# 要自己注册一个AK api key 不然无法get到经纬度
4 [4 e8 a( t7 F7 i7 voptions(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
4 p1 g8 u+ X. K) y6 I+ L% ~+            borderColor = "#FFFFFF",  #边界颜色
& J9 G6 u% ]3 L- ?  G/ Y+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
' J% i& P/ p6 ?6 c+            pointColor = "gold"
6 E  y- e4 W% d+        ),
# ]: l" k' X- Y+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
' f# o. z; ^) _+ l+            color="white",
+            lineWidth=2,
3 c9 [1 S) J+ e% e0 Q+ `+            lineType="dashed"  
( C  N# I2 @5 q% F' D0 C1 s+        ),
+        markPointData=markPoint_data1,
' N7 @- s" E# b* B+        markPointTheme=markPointControl(
7 z: V) d7 y8 R: g3 S+            symbolSize=13,  
" j4 r" ?+ H; A0 `" @+            effect=T,           
+            effectType="scale",   
+            color="white"
+        )
+ )

试试吧

好，谢谢楼主的热情分享的资料
* }' ?4 I4 D, |1 |" @- }