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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
library(leaflet)
# 设置地图控件
m<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
% h' [. H% m  X  y+ h2 G4 Oshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
; i+ y2 M. H8 h* ?# 添加marker 自己选择需要的经纬度 popup：弹出窗口
! J1 }8 S, }/ s" X: ~4 x! [6 \addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
! X& [# D0 C+ F& @

+ Y$ w7 N+ Z1 J+ M1 N1 _7 H jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
$ j- v! _( ^1 Y4 S1 n8 ` # 添加marker
; x9 x2 t8 _6 N5 _" k( k& H addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
& H4 i! `/ x4 g8 z# i3 b
9 M; |5 _( [- w, w
* \  }# ]8 w  R2 @% ^, J7 e# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
7 u# R/ y2 S. q/ O# m3 V! [

5 B' `7 @- R1 ?; b8 }2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
; p4 L. C: L$ E4 f9 V' a( q0 clibrary(leafletCN)
# 使用这个命令可以直接绘制上海市地图
) H" D/ E! w: jdemomap("上海")
8 C! L7 M- [0 `8 q- J$ J9 |' `

# 管道流 单点标记上海交通大学
. n: J0 _  N5 ?' r( _5 nleaflet() %>%
" b/ v# m0 Q5 b& s( c; O0 K+     amap() %>%  
4 M4 N! Y, x; Y+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


# k" A, `: V2 a$ p. ~- I' }6 R) G3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
. h5 B+ y  u" G; ~- zlibrary(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
, P6 r  s1 |4 u, n# |markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
markPoint_data <- markLine_data[markLine_data!=""]
3 {3 |; @# o' v9 Z& H+ wmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
: B) }; k& \6 d, o7 I4 Z! X$ B4 [# 要自己注册一个AK api key 不然无法get到经纬度
3 Q9 A4 k4 {7 o" Z  N" i! Hoptions(remap.ak = "xxx")
0 _0 [" V0 `8 N* eremapC(destin,
8 G: `' @7 n( \0 \& e8 T+        title="2016年2月6日 广州人口迁出图",
/ l4 ?1 I, m% c& U& u+ t! t0 c1 q+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
+ P" O# Y0 G8 g0 N! O! _+            lineColor = "#FFFFFF",  
! I% B/ d" x- P* q+            titleColor = "#fff",
2 @7 c) f1 x$ U8 d  O1 T$ g+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+        ),
/ a8 }& t, w5 V0 [/ u  T+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
2 e- v! t4 Q. a$ `) e3 g/ q+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
" a+ v7 \  Y0 b" N, K3 {+            lineType="dashed"  
+        ),
+ t, c8 K2 i3 Y2 o0 P+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
" {8 O9 H# @5 `2 ~; B3 \9 C+            effectType="scale",   
( ?( a' z3 P* V0 ^; g7 {+            color="white"
' i) F+ R' M2 E  H/ X- B; b+        )
) A+ E; V4 |0 f6 K, @+ )

8 Y2 t6 j7 E/ @6 R

试试吧

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