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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
; D) m: s2 z+ L( n% N- x1 F4 einstall.packages("leaflet")
7 ^) n: v9 L; C9 ]6 Z9 S# 加载包
! B- t, f# w4 f: }library(leaflet)
" D* l* B# H8 H# 设置地图控件
! R; `0 B* M3 j* C1 Wm<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
, M  I! a6 H" y+ g; kshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
3 W# L; r- l2 C8 L2 r# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
0 V. R; W) N  a* }% P

jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
2 f4 C1 K8 J0 E # 添加marker
" D% C4 x. @( C3 s4 v" F: e addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

, g" {# X; {5 ^1 A7 T4 ^# v( Y
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))

: c% f& {$ [* E4 f# m2 P: w
1 o9 V4 F  V" J2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
& A* Y' ]( H5 Z6 |install.packages("leafletCN")
% p0 t! E6 e+ W( H; B; c' Llibrary(leafletCN)
  M* w( ^, l- M3 v# 使用这个命令可以直接绘制上海市地图
demomap("上海")


# 管道流 单点标记上海交通大学
( N& }. M" K5 B8 C4 dleaflet() %>%
3 X7 v1 G7 q0 G+     amap() %>%  
) M% J: ]' `, i* g+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
1 ]% a' v/ a# }2 R0 J) y% \& Y
. B. ~3 M  w% a6 ^) r& ~$ R7 @5 B
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
9 X5 w2 r2 x) ~2 zlibrary(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
2 M' x* [! i9 j$ e' T9 Khead(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
9 ?: H- |- W1 P# ~3 {+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
- ^% {( o! L2 L7 f% x* A1 e+ )
" Q% U# g8 L: Y! Q0 UmarkPoint_data <- markLine_data[markLine_data!=""]
1 R0 b; m" m) ~8 A; V/ L. DmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
: I+ C6 [) g2 L1 \1 K9 k2 ?6 N+ ^remapC(destin,
: [! v4 L  c+ ]+        title="2016年2月6日 广州人口迁出图",
. p! q" X# o3 s" q& z& W+        subtitle="前10目标省份",
  g3 u: b" x0 v) h+        theme=get_theme(                                         
; x% [- V6 V4 q9 n& ^+            #设置相应的背景色调
- p* l4 n2 J5 ?) m$ V1 B+            theme="Dark",
4 p# u( I0 `8 j  S# D, T$ F  d+            lineColor = "#FFFFFF",  
% G& @, E) n4 @+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+ X" C/ z1 N: {7 `+            pointShow = F,
& J: d) z% k" I3 i6 c6 j+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
2 I8 C9 G; G" l' H7 U+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
0 C" ?% _# H* m7 n; [+            lineType="dashed"  
: ~* ]8 n$ \% o) m5 n7 f# z% i+        ),
+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
+            symbolSize=13,  
& l: X1 Y! j* z6 Z+            effect=T,           
+            effectType="scale",   
+            color="white"
2 P$ |) A' t" x+        )
+ )

试试吧

好，谢谢楼主的热情分享的资料
- m! t, T. M# q) Y, O