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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
2 I! x( k0 ~( sinstall.packages("leaflet")
# 加载包
library(leaflet)
# H$ H) D5 h9 H: G  I# 设置地图控件
; Z9 ^7 D1 ~0 D6 V% Am<-leaflet()
at<-addTiles(m)
3 H. g; d" |) T% u6 p6 h' h  S#  在弹出窗口中写一个html格式网页 根据要求来写
; t3 U9 t# Z4 d: q) q$ H# |- wshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


4 X" @0 k0 W& N3 @" Y# K4 |6 | jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
) ]7 D- ?; a' A! L. b addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


0 J. \! e, X- f2 u* x# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
0 ^: z3 i: n+ _+ v- o3 }addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
" C3 |4 d2 [/ _

2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
& N* s$ k. t. q' M" D9 Tlibrary(leafletCN)
# 使用这个命令可以直接绘制上海市地图
" Z, [, C% U. N6 U7 Z. edemomap("上海")
6 U1 H! |9 s. k$ q7 s1 R
0 c! \9 ^2 j9 V4 n6 j
# 管道流 单点标记上海交通大学
7 F: p2 K3 s" B6 C, Y2 J7 K9 _leaflet() %>%
+     amap() %>%  
3 b$ _2 r3 J6 w7 \. N# u+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

8 f! a$ n; ?' D  t) \$ w
4 N' A, k0 u1 h: s& I" T3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
6 V6 [7 A0 {$ p6 K. ~: mlibrary(REmap)
7 q1 G7 p9 _  q7 J7 t9 n; `destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
. m! ~( S+ `# J! h$ m5 ~names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
0 H4 Y4 u* A& [, L! Y/ F  C3 BmarkPoint_data <- markLine_data[markLine_data!=""]
1 L( `# z5 @" Y6 G& pmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
- H3 D8 d0 F; C: A0 L% S6 p& t# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
1 r# o& h9 J' G( u. J) C. H+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
- }& T. Q- \1 t/ |+ d1 q+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
( T3 e( o- {. k& H7 d% ]$ B+            lineColor = "#FFFFFF",  
. M9 H) [/ H' R+            titleColor = "#fff",
, `: R- R! z; [- }% s+            borderColor = "#FFFFFF",  #边界颜色
, _! S! p8 w7 Q3 ?: c" R+            regionColor = "#000000",  #区域颜色
. S% F$ x  V2 W* Z+            pointShow = F,
+            pointColor = "gold"
! v; ]1 h6 L+ s# }+        ),
( q3 i8 @9 m% r2 J+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
1 ^. m. h% c7 P, n+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
& ^0 ]8 ^% C. W& `" M+            color="white",
: z5 ?6 K: `" L+            lineWidth=2,
' Q) T$ \1 d: k9 K( c2 Z( u+            lineType="dashed"  
, S8 y7 K' Z1 o' X+        ),
+        markPointData=markPoint_data1,
$ W) n& k6 x" `& [( M+ T+        markPointTheme=markPointControl(
+            symbolSize=13,  
5 o- w% X4 k1 J7 u4 c; e+            effect=T,           
+            effectType="scale",   
& v$ L2 _% y' S* {8 v, w+            color="white"
+        )
* T4 |) Q3 ?% i& s& L0 @6 ^4 z+ )



  M- ?& K+ ?1 ^

试试吧

好，谢谢楼主的热情分享的资料
" e- w  H! W! q0 B; j  X$ l