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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
/ D5 r& k- F7 y/ D: q% olibrary(leaflet)
$ |- G8 o$ O6 Y, f7 r) Q  A# 设置地图控件
m<-leaflet()
( v: v1 Q- ?# p) m3 [% {1 ?- _at<-addTiles(m)
2 @1 @! `' Z+ N; z& w4 w: w#  在弹出窗口中写一个html格式网页 根据要求来写
. Z1 B( o5 p  n: r/ y/ ushifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
& {; p/ G1 H% k1 u  Z5 ~# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
8 D* z: B9 R3 _8 \# n+ J4 S addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
; W$ u( ^- I5 e' T" A/ z' B; {" ^
8 s! x% ?/ ]* D( ?) L
& a4 q5 }3 a% s6 Y9 u! t# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
/ ^) Z5 ^# b6 L. [/ JaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
, \& E  a6 m8 E) |8 c

2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
) {3 P) f# L& P$ G$ R+ A, F0 A! Glibrary(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")

% U+ S; l; V: S8 t; Y& B
( b* R# Y! t& A# 管道流 单点标记上海交通大学
leaflet() %>%
+     amap() %>%  
+ }. ^$ K" s9 p+ N0 Z' o+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


# ]0 P+ H$ x1 L3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
4 n% }+ D/ T7 w6 X& Wdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
# [! W6 T/ O, t% u. \* {head(destin)
names(destin)<-c("names","values")
0 d5 ~* N1 i0 f5 wmarkLine_data <- data.frame(origin=rep("广东",10),
8 ]4 b; F/ p9 S6 P$ |( A. `1 e1 T+                             destination=destin[1:10,1],
0 l2 {0 P. c; N9 d! ?$ ?+                             color=rep("#fff",10)
+ )
' q) m1 N1 J# r9 j3 p" x" ?8 h: H# b: \! CmarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
. D! |) R- x/ X. H3 T1 _$ G3 D# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
7 ^' Y" m4 N+ t5 q7 C+        title="2016年2月6日 广州人口迁出图",
3 U( F  i3 S4 ~# C& u! @2 V+        subtitle="前10目标省份",
+        theme=get_theme(                                         
0 _- i) ~1 O9 m! x2 ?4 c6 q  z+            #设置相应的背景色调
$ |0 o; R# Z; f/ w5 a+            theme="Dark",
+            lineColor = "#FFFFFF",  
$ E& R; B* C" D% ~- {( i+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
4 K4 h2 c. Z5 u1 |$ o, ~, z+            color="white",
$ E( F4 U1 y5 K' M( I2 x, @+            lineWidth=2,
& _6 r2 r4 [/ y6 t# L+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
' Q/ D  f2 d) C+ s+ k+            effectType="scale",   
$ z# n$ w8 h. s$ x( F# I8 Y4 n% h+            color="white"
5 a) H/ \) w; J- A+        )
+ )
0 k% S5 e! |- @5 h) k0 n

4 W& ^7 }  [* v' b0 i9 r# O0 a. H

试试吧

好，谢谢楼主的热情分享的资料
- l" a6 g+ p; }; Y