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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
' ~2 W8 @- j# G0 D2 U1 W$ \install.packages("leaflet")
7 d: f8 P' j: r' R% Y# 加载包
) V; @4 i% I* v' olibrary(leaflet)
# 设置地图控件
( e1 _1 m1 s9 }. vm<-leaflet()
! a3 _5 ?5 L/ u4 }6 sat<-addTiles(m)
% A6 e' H- N' V7 o; H" `#  在弹出窗口中写一个html格式网页 根据要求来写
- p, `' R( F. x7 G6 xshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
4 n" e& ]. }* P% I5 d. |' w

4 n& y+ X$ z5 D. ^$ C4 f jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
4 p, W! ~: t( l6 |6 XaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
, v# S/ P$ v: t) p' I* k" Tinstall.packages("leafletCN")
library(leafletCN)
( c, S4 m. X0 G# z0 U4 H) I; _# 使用这个命令可以直接绘制上海市地图
demomap("上海")
* s( h. Z- |# a% D3 g- V1 k" {

# 管道流 单点标记上海交通大学
leaflet() %>%
4 S2 P1 m/ C  r- k2 ]* b# n" t- U+     amap() %>%  
, Y  {/ p& Y8 k& z+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
9 y6 j( o) R& E$ {6 [9 M

3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(REmap)
! {: I0 a; y+ O1 r3 [destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
1 o- R; |. Q% P5 T; a/ Yhead(destin)
names(destin)<-c("names","values")
/ c* r# L& ^, @7 R. ^: G: AmarkLine_data <- data.frame(origin=rep("广东",10),
6 X- u) l# I" z5 |% ~7 m+                             destination=destin[1:10,1],
7 O/ t) C; a7 _# n+                             color=rep("#fff",10)
+ )
3 K' t/ I6 q- l" omarkPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
- {0 l9 l+ ~  t4 `& V# 要自己注册一个AK api key 不然无法get到经纬度
+ O5 E- f( e' Q& K: }8 V, roptions(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
) ^% c3 a' f; j  J% D6 R- ]+        theme=get_theme(                                         
+            #设置相应的背景色调
4 y: d0 y( q& n+ V! X) ~( z' |0 n+            theme="Dark",
/ f: Q4 c: F( C9 T+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
$ J  v; P& b- _) K2 e; D/ y+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
8 x: k" W- ~; Q. F0 H" U& A$ z+            pointShow = F,
5 h% _% F) J$ }, o8 e+            pointColor = "gold"
+        ),
+ |* u$ J4 E! H9 V+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
" d8 r  q% n% c1 D4 h3 D+        markLineTheme=markLineControl(
2 g. X' [7 e# o$ Q+            color="white",
' k& P- X) y' N) \+            lineWidth=2,
+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
6 N8 ]: L9 B  v+ A6 x' r+        markPointTheme=markPointControl(
+            symbolSize=13,  
/ W) P4 u) F0 H2 Z+            effect=T,           
+            effectType="scale",   
+            color="white"
5 p$ d6 _# q( _2 S6 F! d' n+        )
" `0 c1 n, L3 B! Y2 I+ )

0 M, ?. I6 K, e
" N* I# ?+ c, o* O5 d, T

试试吧

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