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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
! P6 {( l$ t' D# 加载包
library(leaflet)
2 Y* M5 d2 J+ |" x2 C8 |; a6 Y# 设置地图控件
m<-leaflet()
! d" w  a. j0 p; Rat<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
% h" c3 u$ j+ c1 i4 o% G! d5 MaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


1 W* Z& P! X1 u" { jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
4 g6 N7 t" N! Q* M
( a3 _4 G0 a) v/ X7 u5 b3 h
2 w$ |2 H4 i6 a# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
5 j% c9 F: V) I$ saddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

! X$ I- O  q5 S6 G- y
" b4 X0 o3 b& ]) E/ G% _2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
1 }+ s$ s1 s! y$ z# 使用这个命令可以直接绘制上海市地图
demomap("上海")

& y' `' u- p( W( V) F4 H
5 `8 a( ]9 @( R: p# 管道流 单点标记上海交通大学
8 Q4 v9 m4 [, g5 \$ ^8 C+ s. xleaflet() %>%
+     amap() %>%  
" r4 g9 m, B. J' S+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
! u1 M* l, ]* {$ E+ Y" G
; K7 D8 M! z, g1 @
5 B  T, N1 O0 n' W3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
) L9 R2 s( ]: E) K0 A& }library(REmap)
( C9 f/ n/ d' b* |' J$ u4 N$ ndestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
8 N( J, z+ s/ s7 U+ )
6 R) g% }4 D  c8 f1 \  OmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
7 v7 x0 N( Z2 n8 b9 J. |$ m# n# 要自己注册一个AK api key 不然无法get到经纬度
# x* ^4 g$ r6 b% ~5 doptions(remap.ak = "xxx")
" ?6 ~; b1 \0 ZremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
- D! _2 S1 G) y2 ~1 b0 @5 \3 @6 K7 B+        subtitle="前10目标省份",
6 `3 Z( g* y7 g+ _. p+ P# D+        theme=get_theme(                                         
+            #设置相应的背景色调
4 j" a* U: F' i8 a- U0 `+            theme="Dark",
+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
( I5 n* n+ q" ^5 @' ^8 E6 E2 z+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
, o% r( B( o( z& _4 d+        ),
7 m/ _) q2 R. l. V& u+ K+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
; l. _8 j8 ]- q+        markLineData=markLine_data,   
! ?/ S+ [; c( }% H8 }# Y. i+        markLineTheme=markLineControl(
! J' p3 B4 R1 W5 ^+            color="white",
+            lineWidth=2,
8 [2 N, P" f2 E- N( S' }+            lineType="dashed"  
. _: b( x0 ]( B# S+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
$ F" O+ Y3 x2 C5 u+            symbolSize=13,  
+            effect=T,           
1 G, [1 D2 O) g' L- i% k" N" d8 ?1 A+            effectType="scale",   
+            color="white"
' Q+ w1 s! o0 U* R8 X) I$ f" y2 Z+        )
+ )
+ ^  l3 i4 T% N2 \* }: M9 i


# @" t8 k2 E. m5 s1 g& ]

试试吧

好，谢谢楼主的热情分享的资料
# Z% P5 B3 j& E1 ?% O0 u& d6 W