- 在线时间
- 514 小时
- 最后登录
- 2023-12-1
- 注册时间
- 2018-7-17
- 听众数
- 15
- 收听数
- 0
- 能力
- 0 分
- 体力
- 40024 点
- 威望
- 0 点
- 阅读权限
- 255
- 积分
- 12718
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1419
- 主题
- 1178
- 精华
- 0
- 分享
- 0
- 好友
- 15
TA的每日心情 | 开心 2023-7-31 10:17 |
---|
签到天数: 198 天 [LV.7]常住居民III
- 自我介绍
- 数学中国浅夏
 |
R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
4 b: J6 ^/ [! y0 ^- @& `) n7 }& m0 cinstall.packages("leaflet"). M, T" t! K* I R2 L
# 加载包
/ p( i2 [2 u% T/ w Q! L/ Plibrary(leaflet)
' a5 P, c5 m; D5 E/ c$ M# 设置地图控件
; F$ P6 ~8 e0 G, n7 sm<-leaflet()
7 D- O; H( [- x5 Z$ bat<-addTiles(m)
# _4 O/ o$ r2 Y# 在弹出窗口中写一个html格式网页 根据要求来写
2 K( i! x1 i% P; g" O8 a9 F4 ^shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>"), ~' p9 Q/ W: r
# 添加marker 自己选择需要的经纬度 popup:弹出窗口1 {8 `% I% x+ _# x" F' h3 y3 w0 K. Y
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)# B3 M6 |( W' U' Z9 O+ u- v! b
![]()
0 h' t v% C0 t8 z2 h! U
7 |: s. h y& E5 |- Z jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")3 F% O: U) Z8 p3 _
# 添加marker
0 ~+ |& E4 @' w7 D addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)( {" s u1 V1 o$ } l7 C2 f z/ a
& A) |. [4 g. n7 E: P
. g$ a4 m1 \. ]$ z. k
# 这里是添加一个弹出窗口, 设置closebutton=false 不显示关闭按钮! r5 z) f4 d+ t$ A3 z
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE)). `/ p1 O% Z* }" x& o8 W9 i- r% r
. J& m. I g: f5 y5 `; V, Z
. X# k: x3 Q' G9 X6 d
2、使用leafletCN包,demomap命令绘制上海市的地图;单点标注上海交通大学:地图+标点" I, Z5 d7 X7 d! G9 [" u
install.packages("leafletCN")
9 ?) g' O! f7 S+ s* n2 ulibrary(leafletCN)9 B0 W0 k# \% ]3 D5 m
# 使用这个命令可以直接绘制上海市地图" Z: t2 B9 P K
demomap("上海")
' C2 J% g2 ?1 C. q* z, `4 V4 ^ 5 X5 p; ^* S2 H; d/ t) k
2 Q5 E4 O# H7 ^. @. _9 x# 管道流 单点标记上海交通大学
4 q# H+ w$ g, ]4 x3 ]+ @! J0 @leaflet() %>%
# ?3 ~0 p% r3 `4 v7 ~9 J3 x; W& H+ amap() %>% , G d- e) {! E/ J' H! m$ B. n1 L# h
+ addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
7 K% I7 G0 @0 R! Q9 v& ] ' ] \' b( k7 V* o" W
$ ? t& z+ P, e( a7 {" A0 @+ F
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图,把动态页面保存好上传。
5 y- U- P/ d0 L' M' e" D9 {install.packages("REmap")
8 D) `: q! F# R. n# K7 clibrary(REmap)
+ e% J- ?0 N; Ydestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
5 O& d% \- y Yhead(destin)
8 d( z# n$ J1 xnames(destin)<-c("names","values"): d" c }1 {4 s$ H9 o
markLine_data <- data.frame(origin=rep("广东",10),
, r3 m. g+ x% O, h- U! [- d+ destination=destin[1:10,1],+ o: b. |, L; T- s3 J# Y
+ color=rep("#fff",10)
0 L, x4 N9 t! m2 J& d' a/ C+ )
/ J3 X t# o7 ]/ ~& r4 o% JmarkPoint_data <- markLine_data[markLine_data!=""]
b+ q- C& e" h0 t O mmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]0 P; _6 P: r I- @8 k0 G+ b8 L9 M& b
# 要自己注册一个AK api key 不然无法get到经纬度, W& P. D. R3 J; p
options(remap.ak = "xxx")
+ h* Z1 P; B8 ]! mremapC(destin,$ d8 K/ E5 ~+ S/ I& v$ Q( o8 `0 g
+ title="2016年2月6日 广州人口迁出图",
+ K2 {) P4 m9 f+ subtitle="前10目标省份",
% N" [$ z1 o( }+ theme=get_theme(
. O: v5 A( b: @* @% G; L# t+ #设置相应的背景色调9 e4 z3 Z9 A6 j& w/ D# P
+ theme="Dark",0 Z8 E# G5 U/ q. \
+ lineColor = "#FFFFFF", 0 ~1 ?3 h7 k, P& s7 A% u
+ titleColor = "#fff",- Y% o5 s' e% {/ m5 M% P& W
+ borderColor = "#FFFFFF", #边界颜色
5 ~4 _# [1 [1 R7 }8 [6 g+ regionColor = "#000000", #区域颜色
; j2 g+ r6 E9 e( I' ~. w5 G2 a+ pointShow = F, + ]3 ?/ Q/ G1 R6 U4 c
+ pointColor = "gold"# j1 Z3 ^8 I, }/ z% L% F3 A
+ ),
# h/ X: E2 x. s* b+ color=c('#CD0000','#FFEC8B'), #颜色渐变方案,对应每个地区不同的value/ \5 ~0 @) j3 P; N
+ markLineData=markLine_data, 1 G$ F2 D0 `' M+ W- s9 F
+ markLineTheme=markLineControl(. J) X) x' P; D4 y7 x4 E8 y. n5 ?
+ color="white", / \0 \; R6 }! a- {. z
+ lineWidth=2,
) b& c6 _1 |( k. C* W" D+ lineType="dashed"
0 B1 x( g! w& W! w. ]& a8 f; B& r+ ),5 A8 N1 l' j0 l* Z" t' g% M
+ markPointData=markPoint_data1,
2 P6 r9 c! `8 P+ markPointTheme=markPointControl(
* p7 \( Q5 W" d" c5 D+ symbolSize=13,
+ _1 h3 n8 p- ~0 E1 M" Q+ effect=T,
1 @- b& w: l# Q$ \+ effectType="scale",
" i. r% B: ]. u! F/ B+ color="white"3 `- X4 V o( O: E
+ )
, d6 T" k: h4 n3 p* x0 X$ x+ )7 `5 \& F6 W- x% r' w) M9 _$ |
5 Y( d- f) o7 q; @ n
. o4 K; ^/ ?& q! d9 P% j8 w1 W
" U4 |5 J8 K! x4 E2 h8 @ |
zan
|