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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
, o" O. M# O( ~6 t, rinstall.packages("leaflet")
# 加载包
& X4 r% U1 l! Z" A* j: e% x0 Glibrary(leaflet)
# 设置地图控件
m<-leaflet()
at<-addTiles(m)
3 m% J( h, M# s6 V#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
& b; x) F1 p% Q6 F2 ?" Z$ ]: C: YaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
7 |4 K8 l. Q- a& ?* T2 Q

1 m7 T! @  ^* i6 [ jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
5 C6 d7 d7 r) q4 @' F. @8 W addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
% j5 t2 D  P0 y- _/ D. ]" l

# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
) u% d) M8 b4 b& G& uaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

0 C' j0 o# ^! c3 {' C
- V7 D* X- k* ?1 p$ c2 p2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
- G. ?6 E* e: }. vlibrary(leafletCN)
# 使用这个命令可以直接绘制上海市地图
9 R# y; s& h3 p; m! K+ L2 _demomap("上海")

! D1 B) k+ \0 y
# 管道流 单点标记上海交通大学
0 Q& U- A9 U9 J& s) C4 Z& X2 [# k8 Ileaflet() %>%
+ r5 S" f, v9 V: M5 }+     amap() %>%  
1 m# Z5 z0 o% Y& x( [  T+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
  i  W  Q" ]# H
, a0 x8 {2 m1 x* E& r& X
3 V+ `' J0 n6 L9 K. D" W% a1 R6 @" @% g3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
5 \8 Z, ^% G2 ?5 n! Zdestin <- 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)
6 T& P8 M  G  d& `+ g* F+ )
markPoint_data <- markLine_data[markLine_data!=""]
' ]% K* [" G  g: B. w5 H8 }# jmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
4 V- x& d4 e( p$ p9 p+        title="2016年2月6日 广州人口迁出图",
; f) Z- P1 y2 y4 S5 _: w2 l+        subtitle="前10目标省份",
0 M, a) N3 [- M' V/ I6 n* h+        theme=get_theme(                                         
# {& W, J1 j% M" _, W, ^0 C+            #设置相应的背景色调
/ {% M- l+ ^+ N$ f* }% r1 O+            theme="Dark",
2 p; _% _2 T# R/ o+            lineColor = "#FFFFFF",  
* @+ k& D" K! V$ k+            titleColor = "#fff",
# b( x3 F2 w$ {) K+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
- b! c4 v  A- T- L; Q+            pointColor = "gold"
+        ),
0 `& u! H/ ^$ B5 |) r6 F+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
, v3 q2 Y/ ^& K$ k+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
7 X# I% v( c4 e+ V, q6 e* x+            lineType="dashed"  
+        ),
2 y9 l; g  X; {" o7 p: ]+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
% Y, g: P' G' x, O' k+            effect=T,           
+            effectType="scale",   
0 Y# k+ R0 Z' L- u8 H- z+            color="white"
+        )
+ )



0 p) ?, X+ r8 z. u

试试吧

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