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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
. M8 i: Q$ q  T: klibrary(leaflet)
# 设置地图控件
1 [5 K" [; W5 A: l& b' F$ ~& A3 _m<-leaflet()
* v8 B2 J2 F) j/ j5 uat<-addTiles(m)
: Q# o9 [  b. H" p, p" W#  在弹出窗口中写一个html格式网页 根据要求来写
2 x7 z: B6 l. z; X3 lshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)


jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
& R( x$ ^- f' P0 f # 添加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))


2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
9 v* K' b1 t) `4 ]9 Binstall.packages("leafletCN")
library(leafletCN)
8 U* O/ ]1 U( n+ R1 Y' z) U7 E: H. t# 使用这个命令可以直接绘制上海市地图
, O& [& V# z" K! B8 [demomap("上海")
: r  d2 L1 ^9 S" A4 H4 f

  l7 Q8 m2 ^2 |! a* x# 管道流 单点标记上海交通大学
leaflet() %>%
+     amap() %>%  
2 S) V8 t* B+ r8 C0 _6 H+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


/ D: ~4 k3 X+ ~& |# G3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
' A" ^4 H/ d5 E& jinstall.packages("REmap")
library(REmap)
" t9 {* R  {; l9 G# f3 wdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
( K: d0 ]  z8 L+                             destination=destin[1:10,1],
# q9 a: `: W& t# l+                             color=rep("#fff",10)
+ )
markPoint_data <- markLine_data[markLine_data!=""]
, m( ]8 p' F- ]markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
- t8 p: S" ^- uremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
# v! Y: W: o2 g1 \9 v7 H/ O+        subtitle="前10目标省份",
+ h6 }- o7 H% R1 ?+        theme=get_theme(                                         
+            #设置相应的背景色调
9 b  {3 y6 M! d, e+            theme="Dark",
+            lineColor = "#FFFFFF",  
' t' s7 ~- d& Q+            titleColor = "#fff",
5 P5 ~: A- F. [' ]( I+ F3 ]* U5 @+            borderColor = "#FFFFFF",  #边界颜色
1 s" ?% O( p3 e% L7 d% n+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
0 n8 o) U( {0 h4 Y9 u& t6 U+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
& t! a; v3 Q" L2 N$ O- e: [: A6 @+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
9 w) c' q" L( ]/ ~3 ~( U; \+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
6 x! n; T+ d- b" d+        ),
2 Y: e5 {  n# F& u) H+        markPointData=markPoint_data1,
, e! B& A/ u0 Z3 R: O" ]. s+        markPointTheme=markPointControl(
  X6 l, A5 M; o3 L3 t' U9 Q+            symbolSize=13,  
& o' h/ v0 m. x6 M2 a( \) v6 g+            effect=T,           
* i( ~3 _4 k# a/ g( u- E+            effectType="scale",   
& P! ^/ M9 `; ^, `5 f: S  e/ ?+            color="white"
& D$ m% M" `# w2 p4 w- Y# l+        )
+ )

! A1 u. Q$ f! D' z6 A+ J
; H  l; F  E: C

试试吧

好，谢谢楼主的热情分享的资料
& Z  J( `* [! v3 C& ]5 h