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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
0 i+ l/ Q7 P- ~) O: [install.packages("leaflet")
9 M9 Z7 J( ?# Y& X# 加载包
! G0 D. C2 g4 \9 [4 C: hlibrary(leaflet)
# 设置地图控件
m<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
& J. a& ?, F! r3 ?addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
' F& @7 d$ d, q; w/ `

6 }+ g" T! w2 ]5 E jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
- P  j8 D/ z$ S. g5 f+ p, H8 c" l # 添加marker
1 }' m5 v  Y/ ?5 e6 u addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

3 w8 {8 M, f% o# W; S
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
2 W+ m' h9 ]# naddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
: d! V+ N: K3 d  B

- t1 p) _- N" }8 Q" e: V7 U2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")
# s# ~0 I' ?( Y( p" \
( ?1 m4 i1 D! M/ e5 b! f2 Z" [
; A8 f: c# l3 N- Y5 H) J# {- m# 管道流 单点标记上海交通大学
% L! }- ?9 L* f& n5 e% e" t* F+ bleaflet() %>%
8 w( e  m* s5 C( K5 I+     amap() %>%  
/ R' a$ [2 M0 u% r. e0 |+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")


: g& D( w% E% P. b; b3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
9 Y. ?0 Z( b0 u7 t( h8 Vdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
3 Z/ C, }( P( x9 L0 ~markLine_data <- data.frame(origin=rep("广东",10),
! E; N4 m. |- b( e* Z) n+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
markPoint_data <- markLine_data[markLine_data!=""]
' W4 G  ]9 k+ H  m; OmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
. ^' I& m- F- x3 J( ]( |+        subtitle="前10目标省份",
+        theme=get_theme(                                         
( N$ N! d; D( S5 J7 }+            #设置相应的背景色调
+            theme="Dark",
4 h# d* f9 |3 X1 T5 |+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
# J" k4 y! L. o! A1 {( u9 T; y+            regionColor = "#000000",  #区域颜色
3 i7 U* u5 x9 D! N+ V; ~* i( n+            pointShow = F,
+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
' G  X3 f, U1 O$ O+            lineWidth=2,
4 C# q) f# R' {+ J+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
0 [7 u# a7 ]) o' B4 S+            effect=T,           
+ `9 d. e. Y- h- H3 V6 O' o8 Q+            effectType="scale",   
5 x. `% L  Y7 q) j. x: d+            color="white"
+        )
9 @3 |, i' l6 v! s+ )

) ?: O) d- `9 M6 n1 d) b0 Q

试试吧

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