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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
$ r6 U1 m2 \  I/ Oinstall.packages("leaflet")
# 加载包
3 |- S6 G1 ]% K5 ?( |3 vlibrary(leaflet)
" h' W% U5 W7 p( B6 ?) s# 设置地图控件
3 R  M- Q% k' ^: n) em<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

% B& V/ \$ l2 q9 U
( d! D" ]% d$ x6 N( D) ? jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
$ g; Z9 @+ v) ~' j  [/ r # 添加marker
' O1 y( j' o) F0 H) E8 d% F# g) l4 f; | addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
4 \7 f7 P3 J; U; j
- \- r  I. r5 w/ j, N( {0 Z7 X
% x) ~- G( Q' c( v+ O3 a$ B# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
3 e! v$ J/ ?1 L4 A2 L
% N9 F& b& o: p: Y  O& [* V
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
$ a$ ]: U& h3 q- F. z# Pinstall.packages("leafletCN")
- g1 Q# t6 Z, u: P* `/ F' P1 q. flibrary(leafletCN)
$ Z! F! S# |4 ]6 y# 使用这个命令可以直接绘制上海市地图
demomap("上海")

/ b) C! X6 T* f; D' r* x. \8 c
# 管道流 单点标记上海交通大学
+ O8 @: E' i8 A9 C! t6 ~( U, Cleaflet() %>%
5 E' l5 h& B; n" @5 X+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
- x! O3 m. O7 R% C
# e6 k: R  q" [5 h3 p
4 H, a6 Z  |. q  r+ h3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
4 R/ V9 x9 F. V% p3 R" ?5 plibrary(REmap)
destin <- 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),
& F' l9 T' E' _8 K/ S$ R+                             destination=destin[1:10,1],
) H* c2 N% q* A( }1 d4 b7 P+                             color=rep("#fff",10)
0 `7 `* Z% l& K+ )
0 ]6 \" u* b: LmarkPoint_data <- markLine_data[markLine_data!=""]
- S5 U2 A( t/ b) @4 a$ TmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
7 \5 S! J6 _# G9 O, }options(remap.ak = "xxx")
- Z1 \5 }: {. @remapC(destin,
% K9 p, w& E# ]4 b, J+        title="2016年2月6日 广州人口迁出图",
+ K* s. b0 D/ N8 D6 S/ J+        subtitle="前10目标省份",
' s& J( _/ s. p' S! z+        theme=get_theme(                                         
+ k" k* y$ ?( P/ _+            #设置相应的背景色调
+            theme="Dark",
4 T1 q% D4 R+ {% X9 @+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
' v, A* S' [6 K2 [+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
( d+ H8 U- F# i' ^+            pointShow = F,
) ]- u0 l5 B0 h. }+            pointColor = "gold"
* x5 b7 i; t) i+        ),
# V) b1 N6 o5 o8 Z+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
$ }- _# ]# t6 g/ `& B3 h+        markLineData=markLine_data,   
. |" {& T  w, M& @6 Y  B+        markLineTheme=markLineControl(
+            color="white",
5 M. N2 d7 G2 O) P: |+            lineWidth=2,
+            lineType="dashed"  
3 c; Z9 o4 G0 `3 d0 p/ V- M+        ),
: d4 h5 R" Q6 k$ f2 X+        markPointData=markPoint_data1,
0 d1 N5 T4 ]+ p( F/ u+        markPointTheme=markPointControl(
! k6 K/ V8 p  w6 Q& ]- W4 I+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
+            color="white"
+        )
- i. D; A2 m! k5 ~: k# \+ )
$ `7 X& b% O0 {- L( {& [9 F0 N
: P; u3 w' G; h8 F& ?. |: A5 m. Y

. u* Z- _% N2 W5 W* f$ m

试试吧

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