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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
1 N8 Q# w* v2 E8 G4 \6 ~$ s# 加载包
library(leaflet)
2 E$ t- P$ D- F! N, T8 r# 设置地图控件
m<-leaflet()
at<-addTiles(m)
. P2 f; x+ A( m#  在弹出窗口中写一个html格式网页 根据要求来写
/ e7 P- n( `$ q3 a6 o$ d# z5 V( Z* Qshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
6 K4 b5 G# T3 o# o1 L8 {# M+ Z% j# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

9 U( J( j! v) D1 Q7 B
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
% x8 d* r) j8 x: E$ |6 J- P$ y5 H # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
8 V* s5 y: P8 d

; [" V; X3 q% R& a1 f7 l2 B0 P# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
* d, ~2 q9 o: G7 F9 m9 C& F
, Z& R9 V9 h& M( ]6 D3 B
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
8 c$ R9 }! M, T  linstall.packages("leafletCN")
library(leafletCN)
3 c* y5 p/ H% ^9 }0 e9 w/ m% Z# 使用这个命令可以直接绘制上海市地图
5 w, R) z9 X6 odemomap("上海")
5 l! F! z9 k& T  d

  P7 v% Z( u: F) v1 t# 管道流 单点标记上海交通大学
leaflet() %>%
1 x, o7 F+ E  Y# H3 T1 g6 o+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
- R8 P/ H6 x5 w2 ?

( Z# Q+ n2 B5 G% M, Y/ J3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
2 P2 `2 A* M; }4 C3 Yinstall.packages("REmap")
* }1 B& O* H3 X0 d" a1 j# I/ k4 Olibrary(REmap)
8 P, w2 l& k; }3 q* \5 n7 Gdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
" \# O. k6 r1 L: o/ Z1 @) \1 |7 Knames(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
! p( a9 c9 l1 Y  L8 F3 U4 A9 B$ s+                             color=rep("#fff",10)
5 w4 M: V0 P2 f7 b. }+ )
7 P5 x+ w" ]- E0 i. P& C" emarkPoint_data <- markLine_data[markLine_data!=""]
" g1 U( [. J- T# q6 d4 zmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
# r% ~. v8 A# Yoptions(remap.ak = "xxx")
! Z2 l& ?( c( o$ X, FremapC(destin,
/ M" ^7 p6 r" k5 ~$ j1 B: g+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
6 e" Y0 J$ n" m- F# M+        theme=get_theme(                                         
6 F2 v6 e& M0 o/ x3 m2 X1 D+            #设置相应的背景色调
$ m) W: J1 I9 A% R% k' s+ m+            theme="Dark",
! r+ n: L4 G# V% D4 P- f# P+ {+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+ s- L1 h* t. i7 t% C! w$ e4 ^+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
% W# _2 R. F3 g5 ?! r# l8 I+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
: s1 }, J7 {! B+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
7 o& o/ f. W1 Q7 j! s% d+            symbolSize=13,  
+            effect=T,           
" T' C& F) I# E4 E' Q7 k) S) B0 H+            effectType="scale",   
+            color="white"
+        )
" D8 k" Z' C% s* }) c! N; u  P0 m+ )
5 v* ?7 [9 K: O

7 t" H3 \9 ?0 j- B( O, K: f( M% U

试试吧

好，谢谢楼主的热情分享的资料
0 K8 M( J  n* X8 k2 q