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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
. O4 Q5 g: R' P( x% {install.packages("leaflet")
& C4 b! B: s; {& L0 F, j4 m4 a( ^# 加载包
library(leaflet)
# 设置地图控件
m<-leaflet()
! i8 C7 S! A4 R2 \at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
( O2 z3 p  A2 s. Q* D) o! h3 y4 d. Xshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
3 [7 _- k  J0 M/ T! E# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
3 C3 g$ G6 y& ]7 l0 W0 O" j3 u7 ^ # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
* n9 B. u5 n# [9 M6 S+ ]3 V8 T

# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

% R+ Q( c1 j( w' M6 e  ~* F: A
1 V8 ^! W7 O# R) M2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
7 c, x, ?6 _) a5 v5 Wlibrary(leafletCN)
- B+ G, n, M" K# 使用这个命令可以直接绘制上海市地图
demomap("上海")
1 L# M- A0 j/ E0 A2 h
" g' E5 C5 ~& t5 i+ v( O% H* w
8 m' Z7 @: }! r4 O3 B( X& O# 管道流 单点标记上海交通大学
  Y/ t, _/ s, [8 _leaflet() %>%
- o5 ^) C, u2 n7 I5 w7 V+     amap() %>%  
, H: |2 l% k3 {; K- B# u7 N0 `$ z+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


4 ]; {8 b3 e3 F) d7 s( I0 f. J3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
: ^  k' P5 a& kinstall.packages("REmap")
( c7 W! ?4 k" tlibrary(REmap)
/ w! j/ l3 W- y3 N" Hdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
8 P+ W% p8 y$ u, v5 g9 Fnames(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
" q# I' }8 C- k: a: y+                             destination=destin[1:10,1],
/ g3 @6 O2 n$ d! ^$ U. ?+                             color=rep("#fff",10)
! [1 y. a" A, P+ )
markPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
( @7 ^7 H/ h2 `* ^) B2 h8 N# 要自己注册一个AK api key 不然无法get到经纬度
+ H6 b& C# U+ t1 R, Y% D" V1 k) Moptions(remap.ak = "xxx")
remapC(destin,
, l) f  F- h0 a& z* E" L/ |3 B5 i+        title="2016年2月6日 广州人口迁出图",
( ^$ _$ V4 C" P  F+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
4 x& w& z; c6 J8 F) l+            theme="Dark",
* h) N* o, [7 F: Y2 D1 W+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
; z* _1 {7 Y1 Z& h+            pointShow = F,
+            pointColor = "gold"
% j9 l/ a: q. c' M8 f, E+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
) J$ n8 N, ~+ I1 \; J4 g7 ^+        markLineData=markLine_data,   
" i2 a  E% l  ^4 E6 j- b! G, A+        markLineTheme=markLineControl(
! G/ ~; N9 M  E+            color="white",
* H6 T4 y. `  N3 {* f/ [$ p; e& V" Z+            lineWidth=2,
% H# u1 L: h( N8 G9 u+            lineType="dashed"  
+        ),
% E$ P! ~5 `) J  i+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+ K* k$ u. t6 G# [1 y% X. f+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
% U- z7 s1 h# ^, {  y6 X, h- Q1 P+            color="white"
( b8 c* A/ Y5 k+ p  V8 G  v8 W+        )
) [1 B6 W! k3 J2 U; F+ )
: m) @: R. ^# K% D2 K* o3 d


8 |' B% j9 g7 K5 u* S* N

试试吧

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