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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# ]3 y" J2 E5 s0 g# 加载包
% K/ U* _  A) R$ m, @library(leaflet)
# 设置地图控件
m<-leaflet()
: W' {6 u4 e; nat<-addTiles(m)
; }9 j& O+ M- K% g  s! _#  在弹出窗口中写一个html格式网页 根据要求来写
, w. M  A$ a6 j* u+ L$ I3 Hshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
1 f# Z6 h: p+ R3 M; R
- {/ x! O4 N/ g; Q
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
0 ]: m3 p; }4 A3 F: E; l5 u& ^

# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
! P' S% y/ l9 |3 E' m, V

0 q; C0 g4 P- P& x' L( s9 m2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
  B# [% i1 U+ m: A+ X; t- S% ]* Zlibrary(leafletCN)
# 使用这个命令可以直接绘制上海市地图
8 P$ p$ b7 p$ ?$ k" A: x0 @demomap("上海")


6 k3 G+ U5 b; V6 Q# 管道流 单点标记上海交通大学
leaflet() %>%
5 V" _8 u$ ~0 b0 {" q! _0 J1 H5 q+     amap() %>%  
# F  b. M3 h: q5 e; a5 w+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


' q5 T/ n" m- N" \- m  T3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
: j" q- ?4 {5 a" ]! e1 `% |; v; Tinstall.packages("REmap")
library(REmap)
" J, T; G9 ~! A1 f  c9 `4 u9 fdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
! F* B! y- e) Z7 d$ \5 Y3 @5 bhead(destin)
names(destin)<-c("names","values")
7 o# t  N( q3 e$ s  |* q* H; Z8 \markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
6 V0 Q/ k; V" w* z! W+                             color=rep("#fff",10)
4 L' ?0 x, D) K+ )
markPoint_data <- markLine_data[markLine_data!=""]
2 q& i3 }1 S* R" {, T7 q$ o2 U, ~6 |, YmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
2 J8 y& l& r* a# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
9 F( O* j7 x$ \  a" [# ^$ p9 c+            theme="Dark",
+            lineColor = "#FFFFFF",  
8 Q2 J% s$ o: a- {: g. M+            titleColor = "#fff",
; {, N$ r+ o& T3 p4 o+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
* V: ]/ @) M( `' R; g+ R+            pointShow = F,
2 d' p" }8 ]! Y9 m8 B+            pointColor = "gold"
+        ),
# w$ M; v, l& T- d3 p- W* l& a; o+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
8 H1 p  T- T- n+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
( x/ w1 G2 U$ F& Z# E$ `) C+        ),
7 u1 n9 P$ m4 Z) Z% v4 |/ p$ K+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
. j# j5 Q: S9 E6 b% a3 c0 c+ W+            color="white"
7 f6 T# K6 i' v2 [9 L+        )
+ )

, Q' K- x0 l' y" k+ I; O
# s+ @% d3 _1 C; ^

试试吧

好，谢谢楼主的热情分享的资料
- d1 Y' b. a5 r% J