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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
library(leaflet)
# ^# ]" l. t+ {" T* B# 设置地图控件
! c1 J+ b. x5 U6 U6 X% s6 ym<-leaflet()
at<-addTiles(m)
3 M: G9 w4 F2 S#  在弹出窗口中写一个html格式网页 根据要求来写
5 r3 r, a* D8 I( `shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
/ y* a! @$ f) S0 u* R4 ^# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
: j+ p, V# w1 M* e( J$ z" h
/ e, Y/ B$ l  y6 ?& m
5 c/ x- Q/ z" g- T' O& K% Q jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
5 A6 M' p8 C: r # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


$ f2 I$ |  C; c& p7 m! U# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
, L0 J* A7 \! R  Q9 x* y* [" naddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
# t# A0 ]+ e& }. A) u0 w

6 u; k1 `; _* v2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
' n, e+ o4 _$ G" uinstall.packages("leafletCN")
( A, F. G( _. I4 l6 S: i: blibrary(leafletCN)
# 使用这个命令可以直接绘制上海市地图
  M! w+ p- `: n4 _: {demomap("上海")
9 X1 _$ K, f6 N+ `4 D8 H, G6 S

3 I& C! ?# c8 ?5 [3 y# 管道流 单点标记上海交通大学
6 o' C( k5 \' |6 b0 t0 cleaflet() %>%
+     amap() %>%  
! n% L1 v8 ^7 {. ^, c5 A+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
% V! r4 K6 L; b% R* w- G9 _+ q

3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
1 e4 x$ \; ?- w2 h0 ^2 z+ x; odestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
# _1 {2 K: L5 ]5 t4 S$ Hhead(destin)
names(destin)<-c("names","values")
( I2 \$ C" f2 @) ?1 u, zmarkLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
5 c9 N& i' l# m/ ?, [/ F, @+                             color=rep("#fff",10)
% a0 y: G$ w1 [" W* ~7 d+ )
markPoint_data <- markLine_data[markLine_data!=""]
4 M+ K6 M3 g0 K5 s5 R/ r4 xmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
) ]. v8 |/ m5 toptions(remap.ak = "xxx")
/ F: S0 T$ A  o* \& }remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
$ e4 H  F) I+ _; Y2 K9 Y+            #设置相应的背景色调
+            theme="Dark",
8 d4 Q0 p0 s, b9 R8 J+            lineColor = "#FFFFFF",  
6 V1 x3 @4 q# l1 S+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
* _. l: H  X1 _0 f4 O! r9 E  @3 o+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
9 b1 `, M3 Y. l' A( K8 w- T8 t5 u3 T+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
' ~" p+ q. `2 p+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
" o1 U$ o7 R) W" d( v5 _# ]  L0 Z+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
2 w& q/ D5 O: c* r  z/ Q7 `+            color="white"
+        )
% O7 W# f# L7 G, g$ G* g) D( m4 n; ]+ )

6 e) x* R  Q+ Y2 c9 f
/ m" p7 s1 ]) X$ \2 X5 ^

试试吧

好，谢谢楼主的热情分享的资料
. {, X  N' d6 s# @* F! H