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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
0 h% ~" X: N5 o+ e& e  ?library(leaflet)
# 设置地图控件
/ ^  Z: F" |" v7 qm<-leaflet()
at<-addTiles(m)
* p! Q9 t- ]  _  u#  在弹出窗口中写一个html格式网页 根据要求来写
/ k7 ?: L+ G7 K& a* A* R. Yshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
; A) D) N, s- L# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

) r  y7 m( I  i( w! ~( j
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
8 W8 N. X1 c) ~install.packages("leafletCN")
, b9 o& ]3 ]8 w' wlibrary(leafletCN)
: M- u/ U' ]5 h- r9 A# 使用这个命令可以直接绘制上海市地图
demomap("上海")

5 Y. @! x' B* E
* H) S; l- H! g$ i! l# 管道流 单点标记上海交通大学
( U( Z0 \2 E1 G+ c9 W$ Wleaflet() %>%
( `0 L* {  ^% X9 b3 `0 J( N0 A+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
  Z/ n( n* @$ \( P3 t8 s: D
0 v* _, W4 n, |- i7 H6 ~2 P- r
  o+ u9 H1 _- H3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
4 O; R. `: x$ a+ J2 Ainstall.packages("REmap")
" ?- o' F) d7 K( x2 g0 Flibrary(REmap)
9 F) p* x+ B7 \2 bdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
- C7 q7 m" [1 S3 ^. u& V/ a! qnames(destin)<-c("names","values")
) Y. x) {+ U& g1 ?* VmarkLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
' C) l0 ]+ }9 {9 x7 X; KmarkPoint_data <- markLine_data[markLine_data!=""]
  a& C, `1 c/ `- W: emarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
# N2 Y( C! Z4 Y/ }) h+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
0 J( \: [9 _0 Y+ r, `9 K- d8 ~+            #设置相应的背景色调
3 C1 `% x- b, u/ P3 n' {% y+            theme="Dark",
! {& m+ L4 R9 R8 M+            lineColor = "#FFFFFF",  
5 f2 F" e9 A7 F7 F+            titleColor = "#fff",
* H7 [  B5 n# C+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
' b) X# Z5 K* m  q. i  ~+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
5 ]; q, `" \# O6 p9 F' H+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
( `5 g, I. z( O/ w- y& B+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
+        ),
/ a6 [+ t9 [3 i; A+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
/ a. A' V8 Q. M& H8 \+            effect=T,           
+            effectType="scale",   
+            color="white"
+        )
+ )



- K2 m! Z4 \$ F6 G$ q, A5 g, e( L

试试吧

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