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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
+ I2 P: v! q) r5 g2 F# 加载包
. ^# Q; [) j: e, ~* |3 ?, N9 X  U1 Flibrary(leaflet)
# 设置地图控件
" ]7 q: s2 j! |3 h: b4 _; Cm<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
$ M1 J& q" l. J7 {, Z3 UaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

5 s, `5 a5 e$ y, L
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
5 D) a) J& O  O
9 ^. l/ l; K+ A% x; n4 S( a, H* X
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
" j% j1 |# x9 \4 gaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
* }# w: e" \. m9 n" [library(leafletCN)
; p0 m0 r# T% h, l# z# 使用这个命令可以直接绘制上海市地图
demomap("上海")

1 V2 u& u) I8 O
# 管道流 单点标记上海交通大学
% q. ~: p7 d- Y( G; q  H, Sleaflet() %>%
2 K$ Q) f; v; l+ ?5 w+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

* n5 Z/ z) c7 a5 H
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
" G: L3 ]0 A5 l/ B/ P& a2 [$ ]& Einstall.packages("REmap")
library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
. U% A7 f5 y. ?names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
1 F3 a3 `1 N0 e, a+ )
markPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
+ U" Q! b8 {0 U: \, ]& u, Z7 R  M# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
& _/ B& F3 a6 Q, N" [0 LremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
9 |0 K  c3 Z' @+ c, F# H+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
; Q! i( B; A0 p; m5 e0 W2 n" l- Z; N+            theme="Dark",
+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
: M) \" G2 S# k6 j8 M4 O; E0 N+            regionColor = "#000000",  #区域颜色
+ f& B" Z/ t8 \7 a+            pointShow = F,
& I% y. H+ G4 H: x& d7 d/ s+            pointColor = "gold"
9 }  V9 W+ ^0 m* S+ I4 x5 ^+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
1 \) J9 u. D3 q' x1 L0 S+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
+ \0 r* e, q, C) U2 i3 F# Z! I+        ),
% c3 f. y. {% F/ \& v+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
, J3 \/ v  G1 i, B( ~, L7 f+            symbolSize=13,  
+            effect=T,           
; U6 y3 Y% j8 }" p! L6 y+            effectType="scale",   
" n/ W7 ~3 p" L) {+            color="white"
+        )
+ )
; h8 o9 n; W! @/ P/ z" X* g/ q
  a4 j+ Y5 J) z  m2 S8 K$ p; J$ d

! E: K% A; N: M! ^% Y0 [

试试吧

好，谢谢楼主的热情分享的资料
3 y0 {1 N7 b* A