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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
  ?$ e# ?& [* ?install.packages("leaflet")
& b+ w3 T5 q  p. W  _+ [# 加载包
library(leaflet)
6 p1 s9 r" l" b# 设置地图控件
7 j2 q) u+ `; Y9 m1 @. xm<-leaflet()
at<-addTiles(m)
6 D% \! N8 v. |0 P#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
* `1 E! g2 @" Q- t/ z# 添加marker 自己选择需要的经纬度 popup：弹出窗口
8 F% y# k  J- |5 G0 i+ DaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
0 F! }4 H6 q% w  J+ s; g
1 U! B8 n! U4 ?
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
' o8 a2 }$ W) C2 r2 W: W$ h
+ x" m1 W# G3 w6 d2 y2 ~
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
$ H& S8 e; Y! B* s6 f& |: Y/ v7 {

2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
* d. J; I5 F- K) C, u- V4 Zlibrary(leafletCN)
# 使用这个命令可以直接绘制上海市地图
8 B! I" D! u/ X/ tdemomap("上海")
& W6 E4 r- V9 c4 H# u: I
0 M+ f8 E6 \2 O: `
  E* v- Z+ U6 Q) b8 k* n) I# 管道流 单点标记上海交通大学
leaflet() %>%
+     amap() %>%  
% H3 ?0 P/ Y( B2 o! D% P5 c+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
  s* K0 x  B  r' ~' F  I/ N7 A+ jinstall.packages("REmap")
library(REmap)
" k7 S$ |7 F7 K2 o+ u7 U! b8 p2 w2 edestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
9 V% M. J8 U. P8 j1 \5 Hnames(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
' l) M' u  z' k2 q+ Z. O1 z+ )
3 j6 D) J' N; N; q" ?8 K; X! jmarkPoint_data <- markLine_data[markLine_data!=""]
. m0 H3 i( G4 @- m! FmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
7 \% V) p" o& N5 b* m  \4 a& O$ n# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
1 h6 {7 v9 F; f1 iremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
. c4 Q2 [) O& v  T( O# F+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
7 o( }6 I$ I4 @0 R! p9 k0 J+            lineColor = "#FFFFFF",  
9 `. `9 l8 i  z/ l& h+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
5 u& j! j$ s, `+            pointShow = F,
+            pointColor = "gold"
! Q5 M4 P' j" F/ |' l+        ),
7 w( N( l5 X+ A# m+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
" e6 D( c/ d( P. O" K9 h+            color="white",
9 w* M9 W$ O% P: J  _8 F+            lineWidth=2,
+            lineType="dashed"  
, x; D% J1 o6 f) A2 h7 m% B) V+        ),
  `, R( S! J; l+        markPointData=markPoint_data1,
- P! Z9 n5 B. K$ T+        markPointTheme=markPointControl(
, t+ T/ t2 ]: y, ^0 M: }+            symbolSize=13,  
& X; W  d& {% k" v8 D+ v+            effect=T,           
3 v" l+ S: @0 i7 |6 Q+            effectType="scale",   
: H5 B9 s! i; y! j' r7 N+            color="white"
+        )
1 z8 T3 M( e( m" w- z0 J+ )
  g: V0 R+ G" A+ \8 I

+ E1 O, a8 Q) ^
. D3 q' M! S# |7 C& _! {8 }: O

试试吧

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