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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
. t) F0 z- l$ D$ |2 l3 \install.packages("leaflet")
3 c/ @9 ], g0 o* Q9 u* E# 加载包
library(leaflet)
) Y/ o- w  G$ m8 g# 设置地图控件
m<-leaflet()
' U; [8 l' ~3 e( {' N- sat<-addTiles(m)
3 M7 W& s! e, J$ {0 a#  在弹出窗口中写一个html格式网页 根据要求来写
$ [$ n, |( g; j0 wshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
6 T7 k7 B% i; Y2 ~9 r/ M# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
$ x# N5 l9 D0 Y! [7 ^! }. q
  w& v$ f' u, U5 Q
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
4 R, g5 o; f- b+ O addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


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


2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
$ a1 y  Y: g0 F; c/ J5 b& w# 使用这个命令可以直接绘制上海市地图
% _9 k6 b: M" _$ w. u, t2 tdemomap("上海")
0 f. X8 e% Y6 [6 ]
: g- H8 E4 }5 a- w% ?0 u! P7 w. }
# 管道流 单点标记上海交通大学
5 i! K1 R7 ]- i2 j7 W8 `leaflet() %>%
6 h3 C% B" G4 x' ]2 ?% t( L6 i+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
3 A2 G5 @; i# d9 d6 i
8 x. d$ u' h9 U4 k, }  [
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
( z2 _( U2 ?4 G. x9 {. R8 \install.packages("REmap")
- f  ~2 ?/ l5 l! r, blibrary(REmap)
* ?4 c% ^( p  {( h, |2 Xdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
9 l* f2 H$ ^- tnames(destin)<-c("names","values")
2 F# Q  v6 o9 U3 U" L& h+ G! {markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
; u: X1 I5 ~6 ]- F) F+ )
+ A% O0 Y3 R0 D( dmarkPoint_data <- markLine_data[markLine_data!=""]
$ d/ M+ Z. [9 q0 d4 {+ ~markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
: G" y  w- `! L! u! CremapC(destin,
) \0 `" x! I( {; r' q; e. y+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+ Q) v2 \0 W$ ^) ]+        theme=get_theme(                                         
; E4 {; Q5 ~& V1 Z7 N* c( p+            #设置相应的背景色调
+            theme="Dark",
: I; I9 A3 X, X( V: p+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
# N/ ~9 P, p0 y+ `( W+            pointShow = F,
+            pointColor = "gold"
3 C' t0 t2 P5 @9 g( N& O+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
$ R* [! V' ~6 k8 h1 f' m+        markLineTheme=markLineControl(
" a; w  \% l$ V+ F, q+            color="white",
* n% }* I& W  z# F+            lineWidth=2,
. M3 F. j7 T7 }! R& v6 J4 i+            lineType="dashed"  
$ W" n; A6 L2 p+        ),
( ?' g- D# F6 e6 \3 X. t( i+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
; a/ L" Q" Q" p: w4 R+            effect=T,           
+            effectType="scale",   
+            color="white"
+        )
6 I1 e% p  ^( x, E+ )
4 n. p2 K7 ^7 ]  g& j! a1 x

0 @% `. k+ _& d% c/ u: J

试试吧

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