- 在线时间
- 514 小时
- 最后登录
- 2023-12-1
- 注册时间
- 2018-7-17
- 听众数
- 15
- 收听数
- 0
- 能力
- 0 分
- 体力
- 40031 点
- 威望
- 0 点
- 阅读权限
- 255
- 积分
- 12720
- 相册
- 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、添加弹出窗口# 安装包 @" i+ V+ y5 o5 J4 U$ Z
install.packages("leaflet")' }- f1 ^! ?6 L
# 加载包
. M8 i: Q$ q T: klibrary(leaflet): t6 b6 V2 ^: h! e
# 设置地图控件
1 [5 K" [; W5 A: l& b' F$ ~& A3 _m<-leaflet()
* v8 B2 J2 F) j/ j5 uat<-addTiles(m)
: Q# o9 [ b. H" p, p" W# 在弹出窗口中写一个html格式网页 根据要求来写
2 x7 z: B6 l. z; X3 lshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")5 |! l A0 j+ W1 u
# 添加marker 自己选择需要的经纬度 popup:弹出窗口0 a3 _7 k2 ]5 Z4 l5 _+ X* `; H9 ~( e
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)$ u7 @3 W: ~8 J B0 ]
* a; J' w. Q. q( `) U5 Q# V, X
; k" f4 z* F2 F% k- P& N2 e
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
& R( x$ ^- f' P0 f # 添加marker & u7 a+ ^) A% @
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)9 R: b& V8 t$ A+ l
9 N; c% S( C+ k) F7 J" S% T! Z
9 O+ k8 y' Y. Q- {0 M
# 这里是添加一个弹出窗口, 设置closebutton=false 不显示关闭按钮2 R4 u6 b- M4 Y3 [
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))" K, C; J8 L$ L' a$ [
) @2 W' S8 q2 u1 q
% Q- k) o O/ F* f- n0 j
2、使用leafletCN包,demomap命令绘制上海市的地图;单点标注上海交通大学:地图+标点
9 v* K' b1 t) `4 ]9 Binstall.packages("leafletCN")' g% k4 `- o8 N
library(leafletCN)
8 U* O/ ]1 U( n+ R1 Y' z) U7 E: H. t# 使用这个命令可以直接绘制上海市地图
, O& [& V# z" K! B8 [demomap("上海")
: r d2 L1 ^9 S" A4 H4 f : [6 H, ]; W; `! p7 Z, P1 @4 p' F2 a
l7 Q8 m2 ^2 |! a* x# 管道流 单点标记上海交通大学2 M; r) N0 h1 o- j( [1 y
leaflet() %>%( Y) a% X( }& v5 U: j/ e
+ amap() %>%
2 S) V8 t* B+ r8 C0 _6 H+ addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")& F5 q3 b2 z A1 N
" Y' m" V: e5 [5 Z
/ D: ~4 k3 X+ ~& |# G3、使用destination.csv数据文件绘制2016年的广州春运迁徙图,把动态页面保存好上传。
' A" ^4 H/ d5 E& jinstall.packages("REmap")2 o; A3 y3 [$ y5 u9 y. p
library(REmap)
" t9 {* R {; l9 G# f3 wdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F) Y3 t( k0 k7 r+ ?+ U* @3 u
head(destin)1 H# C/ m3 x3 c% W1 P) ^2 n
names(destin)<-c("names","values")7 N5 f! E" a0 J r+ g# B4 O6 @. `
markLine_data <- data.frame(origin=rep("广东",10),
( K: d0 ] z8 L+ destination=destin[1:10,1],
# q9 a: `: W& t# l+ color=rep("#fff",10)3 ^! ` i2 S0 |5 Z5 ]4 _, B: ^
+ )5 e* F: Q# r+ M: _
markPoint_data <- markLine_data[markLine_data!=""]
, m( ]8 p' F- ]markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]$ P& b$ }9 o8 q0 D9 c! S
# 要自己注册一个AK api key 不然无法get到经纬度 ?/ k4 j; M5 }0 N" N6 E! V' b
options(remap.ak = "xxx")
- t8 p: S" ^- uremapC(destin,1 O: @# y, u+ d5 ?2 Z/ O
+ title="2016年2月6日 广州人口迁出图",
# v! Y: W: o2 g1 \9 v7 H/ O+ subtitle="前10目标省份",
+ h6 }- o7 H% R1 ?+ theme=get_theme( # s% s1 m7 O7 T7 ?) i. Z$ L0 t9 G
+ #设置相应的背景色调
9 b {3 y6 M! d, e+ theme="Dark",$ @3 p2 d5 z: x# r2 d9 O
+ lineColor = "#FFFFFF",
' t' s7 ~- d& Q+ titleColor = "#fff",
5 P5 ~: A- F. [' ]( I+ F3 ]* U5 @+ borderColor = "#FFFFFF", #边界颜色
1 s" ?% O( p3 e% L7 d% n+ regionColor = "#000000", #区域颜色. F2 G; V2 f/ M; {; Y5 H. C3 P
+ pointShow = F,
0 n8 o) U( {0 h4 Y9 u& t6 U+ pointColor = "gold"/ V5 v* Q& B2 e% j' B
+ ),0 h; v; ~, q. `2 B; N; S
+ color=c('#CD0000','#FFEC8B'), #颜色渐变方案,对应每个地区不同的value
& t! a; v3 Q" L2 N$ O- e: [: A6 @+ markLineData=markLine_data, & ?& [7 F0 @ U% h7 G0 A; F t8 T
+ markLineTheme=markLineControl(
9 w) c' q" L( ]/ ~3 ~( U; \+ color="white", r6 d2 {, w6 I* N# A0 ]
+ lineWidth=2, $ g& H B$ t/ Y9 F+ [
+ lineType="dashed"
6 x! n; T+ d- b" d+ ),
2 Y: e5 { n# F& u) H+ markPointData=markPoint_data1,
, e! B& A/ u0 Z3 R: O" ]. s+ markPointTheme=markPointControl(
X6 l, A5 M; o3 L3 t' U9 Q+ symbolSize=13,
& o' h/ v0 m. x6 M2 a( \) v6 g+ effect=T,
* i( ~3 _4 k# a/ g( u- E+ effectType="scale",
& P! ^/ M9 `; ^, `5 f: S e/ ?+ color="white"
& D$ m% M" `# w2 p4 w- Y# l+ )3 w3 _- B; \9 v( V
+ )9 w1 ]7 ^3 o% p9 b7 G
![]()
! A1 u. Q$ f! D' z6 A+ J
; H l; F E: C4 J( g4 @3 l+ a) A( N
|
zan
|