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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
library(leaflet)
9 V$ X) u2 t  ~4 G2 o  j" @# 设置地图控件
m<-leaflet()
) f& ~& X  S6 S- d; \at<-addTiles(m)
5 O9 ]. ]& |8 {0 q' ]: r1 D#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
7 K1 p) [! T- U4 G, T  u8 `# 添加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)
2 s+ t4 K5 F* \$ E
5 B( x  Y& D" i0 w' w5 e% K" A  j
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
& U. [8 `$ j, k9 F* G/ yaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

2 ~6 V/ S) x" T. E
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
# J3 P/ v& \  `" v6 _$ Q# 使用这个命令可以直接绘制上海市地图
+ {2 [8 {% X8 P! L$ Vdemomap("上海")
7 z. n, Q7 R& X! s- y& s

# 管道流 单点标记上海交通大学
9 `& ~; y; O, H, ^  c& Yleaflet() %>%
1 V( q% a! H; X0 Y4 {: ]. I' X+     amap() %>%  
& ~( w6 n& V; H$ V+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
7 m4 u$ q* Q5 u7 f: x! L

3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
2 c3 }' b3 ]2 ^$ hlibrary(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
2 e  N$ u$ `& i, {" _2 Y. Lhead(destin)
names(destin)<-c("names","values")
, Y% K/ Z! _" ~5 w0 d$ FmarkLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
markPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
* h( o) M. d7 f2 K. b5 c$ J# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
+            lineColor = "#FFFFFF",  
$ V8 |- w! v- O, R- P+            titleColor = "#fff",
0 _& x$ r3 W3 U" X+            borderColor = "#FFFFFF",  #边界颜色
* m  o  B5 F( S; f+            regionColor = "#000000",  #区域颜色
$ a* g# e* s$ l4 P0 u* s+            pointShow = F,
) h0 `0 V; m4 q& f9 O9 n; d+            pointColor = "gold"
2 K1 C' P5 q5 A* x7 c+        ),
$ ?/ Y3 U$ ~  u+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
* N3 p- ^' H6 s, t* l+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
) ]4 W; m+ N9 z: q+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
+        ),
% x  e* [( y5 w; ^- T9 G0 C0 c+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
+            color="white"
+        )
+ )

2 B, R! x$ F) n1 X4 s
' H& ~; T% {! M" s
- R* j6 y' y7 N$ F/ R0 ^

试试吧

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