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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
* w3 _: Y, ?- W1 `: f! ^# 加载包
library(leaflet)
# 设置地图控件
, r1 R% _  }: _1 S$ ^. d' lm<-leaflet()
at<-addTiles(m)
  U# m) y/ b$ ~; c* g5 `0 p+ l#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
1 k0 E) O% z( O3 E7 B' Q# 添加marker 自己选择需要的经纬度 popup：弹出窗口
+ y" K0 g- Z' Y# v5 raddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
' k/ o" s, R3 b  A! Z4 n' s

0 t3 _4 _7 T: j2 t- Z/ b& _ jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
6 ~# V8 R  _5 S* P  I3 g2 c( C0 Q* D # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
5 i. q5 b  B$ p* T* K! m" ]

8 F+ V5 P: X8 C, U# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
3 t4 A3 w3 s6 t

* B2 g. x8 h* ?' o9 ]2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
* q/ t4 A9 R5 s/ v/ F4 `' }install.packages("leafletCN")
) N1 k/ P2 f' R; U2 `; qlibrary(leafletCN)
% X; K, G! z6 x  b6 m# 使用这个命令可以直接绘制上海市地图
7 v9 N, C3 s, X/ Ddemomap("上海")
* f/ y$ Z8 q2 k, @: O/ L
7 f/ G+ E1 a* [( b5 p' C
9 n# o3 X7 c& v% y! ~4 J9 Q# 管道流 单点标记上海交通大学
leaflet() %>%
+     amap() %>%  
3 q& H7 i( |0 Q! `# u+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
) C" r( L" ~6 v; I$ R& X) v( E
- |7 R* q0 W6 Y1 i
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
# a1 I. R9 A2 {& X4 U& yinstall.packages("REmap")
6 e" _9 O0 F9 r* L" E; flibrary(REmap)
9 t; R4 s! Y  m; w3 {5 Zdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
- U6 Z5 G' U3 y( j4 t) ?/ X! o' `head(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
( s: o+ f3 A) C5 l+ )
) W/ m9 G3 N# m# b6 A( GmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
4 s3 q8 z8 N8 gremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+ i3 c- k6 u# m! u% Y& `2 T+        subtitle="前10目标省份",
( Q/ F* M; V: g: {0 @. C( m! p+        theme=get_theme(                                         
' \# K# d5 q2 }, _0 O+            #设置相应的背景色调
  U+ a8 Y; @. u2 X+            theme="Dark",
7 ^  x; ]0 x* z3 v# `' \0 }+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
6 F+ Y6 S( u: W' T+            borderColor = "#FFFFFF",  #边界颜色
4 D! a7 r8 O: P0 T- s4 e  b+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
& ]8 c" l! @" \# _+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
. @* K9 I; y- x' o" t- S5 i' e+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
, H) P3 ?0 W3 q1 H# O+            lineWidth=2,
+            lineType="dashed"  
& X5 @  }7 _' E0 S6 m( z. Q+        ),
6 n) r. U4 \2 V) x+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
. }) J  I. D( r- a+            symbolSize=13,  
+            effect=T,           
1 ^" y; d/ j" A1 y- n. G! w+            effectType="scale",   
  z# d( c* @2 t" }! W" }+            color="white"
5 ^+ k/ x5 y8 M. t* g1 T+        )
+ )
, k* o" l' r3 u* r/ `
7 a7 j  Y  M- X$ X9 R

试试吧

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