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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
6 q5 a) s% [& C& einstall.packages("leaflet")
# 加载包
library(leaflet)
0 P# Y- E/ H& n$ L  a2 @0 c# 设置地图控件
9 `( I) |7 W! Qm<-leaflet()
at<-addTiles(m)
' X7 C/ `  G8 e3 e) u#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
; G5 B' |4 x1 w( n9 d3 j! m! j# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

+ p2 y# ?) L2 A
; Z7 J0 ^5 E: y2 b jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
' E$ F7 S- B$ w) \' _+ O1 k  a3 b # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
! g+ C" g2 K4 ^: r
, h+ b# `/ t  C- d9 J
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

3 W! J' F. m, {$ g% _0 w
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
* h- m  p- y' R" Oinstall.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
+ Z, Y$ S' ]! Y! z0 G5 T: R* N4 rdemomap("上海")
$ _% w, E1 P0 g

# 管道流 单点标记上海交通大学
leaflet() %>%
+     amap() %>%  
2 X3 @4 U, g% g+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


) N  G+ d" g: I- ]: s9 F* v3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
# T  ~  W3 x" c0 Khead(destin)
names(destin)<-c("names","values")
/ V$ ]& p0 |$ ?markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
9 Y. [. ^; o, R" X9 _+ s+                             color=rep("#fff",10)
+ )
1 k; W: I) h) l8 g( b3 ^& CmarkPoint_data <- markLine_data[markLine_data!=""]
  o! i: @9 d. l9 K: cmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
* [' f% D3 `4 i* _7 X5 Qoptions(remap.ak = "xxx")
! m: \8 R- Y& r  W) ?remapC(destin,
1 p7 j7 y5 J- L" B, j+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
4 r" w& l0 N) l+            lineColor = "#FFFFFF",  
! \; A" r' G; v0 z: d+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
2 U1 N7 _. @+ Q& Z1 v& m$ |6 |+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
6 v* U" N( \, M3 j2 l# D0 q+        markLineData=markLine_data,   
/ Q8 Q8 A% Z; Q6 l* ?" g( J+        markLineTheme=markLineControl(
+            color="white",
: G. h% m! l7 A( f. m1 G+            lineWidth=2,
0 y$ x' e% b+ R7 O8 ]2 Q+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
) R2 K9 E0 n! n( U9 Q0 a+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
+            color="white"
+        )
: J; q% y8 P! ~" W+ )
$ \7 C' c5 \9 X( L' }( {1 J
$ p9 F+ ]$ F( z: g( g8 K
' Z9 ]$ X/ F( W$ \1 Q/ [2 x7 k; Y
  O- y# i2 X0 P- ^3 {

试试吧

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