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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
library(leaflet)
# 设置地图控件
m<-leaflet()
6 U% g9 s1 x9 O8 pat<-addTiles(m)
- ]  F- _# R) ]1 K1 I5 T#  在弹出窗口中写一个html格式网页 根据要求来写
+ q  Q' U9 y+ h+ @shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

5 a6 y* v# }6 a
# ?8 j, g. |% t0 | jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
( l4 t0 q$ B1 ^+ A # 添加marker
# W# t7 v7 P! d2 i" X addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
# f* L. E# O* a

# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
# [/ [# j) @  R  `8 Y) aaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
4 _& T3 m; `# x; hlibrary(leafletCN)
) h, R+ R, H# c$ Y7 K# 使用这个命令可以直接绘制上海市地图
: A. a- u1 k. z7 O  ^# N2 a: jdemomap("上海")
6 R8 b( i+ `( ^, Z  N

# 管道流 单点标记上海交通大学
leaflet() %>%
6 m% G% j' A5 O+ ]+ y, Q+     amap() %>%  
* a& l1 I$ s# C9 C0 {% l+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
- x" r% h9 C- f# I% V; R3 b7 U
9 s9 G) g, K( G+ V/ Y
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
4 W9 O0 T! y: Ghead(destin)
' p  R# R& I3 V, n# {- \names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
markPoint_data <- markLine_data[markLine_data!=""]
! t& e2 M! o9 a$ p  `3 N- VmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
4 f8 X% U+ h! t, S# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
7 X/ P3 I5 B& c* h7 O* K) h" G8 F+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
2 S8 S1 D. R) n+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
, L/ W+ u1 O3 \. D9 b  h" l9 e/ _+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
- c  R" _; T8 E% Z  a+            pointColor = "gold"
  j( e. @" ]; d6 v2 B* L+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
2 @8 s: {% A, M& f5 Y% z+        markLineTheme=markLineControl(
/ C5 L, s3 ^  o+            color="white",
0 G6 d7 [/ z7 \* G0 i. [+            lineWidth=2,
+            lineType="dashed"  
( O* m! i4 x4 Z7 X+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
: A0 Y5 R; o5 d0 \+            symbolSize=13,  
3 p0 |1 h' w8 V7 U+            effect=T,           
+            effectType="scale",   
+            color="white"
# V3 e" A9 s' r8 g8 s, L. E7 f+        )
+ )
: B2 m6 \* @# g: O1 o, R


0 x2 W! O4 N  G% C: @8 T

试试吧

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