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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
  G1 w, z3 h+ f! s- y: }8 Jinstall.packages("leaflet")
+ P8 c/ K* R/ r. A; \2 F# 加载包
library(leaflet)
2 ^+ Q6 _! c, B7 t3 r. }# 设置地图控件
m<-leaflet()
at<-addTiles(m)
; o+ d  a7 a$ p0 O1 r6 U5 S#  在弹出窗口中写一个html格式网页 根据要求来写
( ~, v: ~2 G& H5 r7 Tshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
% Q2 h. Y# V/ S8 V7 {addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
% @7 I# M+ Z& J  ~! |  I
5 X. P" ]5 V7 y4 z8 w( p6 C  l% @6 ^
5 U' A  D1 V/ g! p4 ?7 o4 C2 U# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
5 ^) K% ^0 \. {' g8 X3 C9 L9 p  A
5 ]* g$ _6 \; U; R5 r
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
9 R9 ?/ s& r) `- d" Finstall.packages("leafletCN")
library(leafletCN)
! h( h7 y4 i8 p# 使用这个命令可以直接绘制上海市地图
' w# o. K+ v# F" B! ademomap("上海")


. T% c4 E( \. o, H7 ^# 管道流 单点标记上海交通大学
7 w$ V# l( H# M9 W" A: ?leaflet() %>%
+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
3 M0 f) t( E! S4 O5 T3 u
& k# `  p/ T( e  U
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
. I7 J# G& y0 e, D$ V  D  Yinstall.packages("REmap")
library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
+ u6 T2 K( C# Q% L2 `% B/ e: khead(destin)
% L% E1 X7 z3 Knames(destin)<-c("names","values")
9 a, [) M" C. G: B9 b3 dmarkLine_data <- data.frame(origin=rep("广东",10),
+ R2 x3 [3 r  y9 \  [; ^+                             destination=destin[1:10,1],
8 C0 D. R, p& w* r" ]+                             color=rep("#fff",10)
4 G& I  b$ \9 R+ )
markPoint_data <- markLine_data[markLine_data!=""]
$ j3 Q# J, ~& o( ~; `markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
9 N# C. z& d1 J! S6 E. H+        subtitle="前10目标省份",
) t; Q9 h' ]) v7 y) F& k+        theme=get_theme(                                         
0 l, ]& w+ l& K+ M6 O& r) w7 _' a' h+            #设置相应的背景色调
, b' {+ B) D. {: k/ P+ A+            theme="Dark",
+            lineColor = "#FFFFFF",  
1 T* k- R' W, b4 \0 V; Z+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
6 i1 l' W* O5 ~1 Q+            regionColor = "#000000",  #区域颜色
: V/ U( _- X+ T  ~5 Q8 D+            pointShow = F,
! \7 o; ?- |' I+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
% {/ h8 j+ F3 }! d+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
. b: x; S/ x& @4 U$ ?" Q+            effect=T,           
/ ^5 Y6 o3 g/ c( p+            effectType="scale",   
+            color="white"
* B/ Q9 G# _4 A9 R7 d+        )
+ )


6 _* S0 `1 q9 W  ~' F0 A

试试吧

好，谢谢楼主的热情分享的资料
3 a" ~% D* _7 a5 U