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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
2 V1 q* i. y9 |/ m; f# 加载包
library(leaflet)
# 设置地图控件
; h) h" N( c8 P: v6 r' _% Em<-leaflet()
at<-addTiles(m)
* @" q. I7 ^" \1 t* R  E2 _, f#  在弹出窗口中写一个html格式网页 根据要求来写
# _" C) _+ {- c1 `/ x( Gshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
4 u) C; [/ ~4 m0 i  R addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

0 E8 o6 r! c9 C; z. w. E
1 k0 Z6 I  w4 \1 h# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
. z. y5 {; T( d4 V/ [  b  R* a
- T# x. z7 G, H* W
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
8 E) J: d# q1 v1 U9 r5 m8 e) E7 S" Xinstall.packages("leafletCN")
library(leafletCN)
) [7 Z1 E# G! R$ ?  E9 o9 h# 使用这个命令可以直接绘制上海市地图
demomap("上海")
6 U) m! m/ I$ D

# 管道流 单点标记上海交通大学
5 Y7 Q6 g" w/ b8 d+ b/ O$ Nleaflet() %>%
+     amap() %>%  
7 m- b+ R2 S$ C; Y. N4 A+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

& v. m5 g6 A7 v4 m6 l
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
! k$ d/ [, V8 G* ainstall.packages("REmap")
library(REmap)
5 U2 Y: ^$ {) X6 R7 t6 jdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
  Q& Y: h4 x, Z. ~8 R, jmarkLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
& q1 M- v# M8 |* S  G+ )
- \( E) v9 o5 A/ J* smarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
. o" D7 o  H3 ~2 D# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
1 J/ L; v) d) _( MremapC(destin,
& X: }& M( f, X$ h9 n- o. O+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
+            lineColor = "#FFFFFF",  
' r' h$ m6 z5 i7 D9 m( d/ g, |+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
9 u8 L! M; K+ H8 [9 d, N: \! A+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
+        ),
' j! D/ \$ f1 v5 m3 D3 a& S4 m+        markPointData=markPoint_data1,
: N" |! M, _- s$ R: M2 Z+        markPointTheme=markPointControl(
+            symbolSize=13,  
' r$ U8 D# `5 Z9 N3 f/ {6 r( m+            effect=T,           
* {' {' o: K& e8 Y+            effectType="scale",   
+            color="white"
. l& L6 \5 L4 _- J+        )
+ )



! Q7 R) z' G) w" Z( r4 o7 H

试试吧

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