- 在线时间
- 514 小时
- 最后登录
- 2023-12-1
- 注册时间
- 2018-7-17
- 听众数
- 15
- 收听数
- 0
- 能力
- 0 分
- 体力
- 40245 点
- 威望
- 0 点
- 阅读权限
- 255
- 积分
- 12785
- 相册
- 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、添加弹出窗口# 安装包
7 S# U( l+ N0 _8 S! w$ Kinstall.packages("leaflet"), }% z9 g1 c4 T. V8 G% K, g) q
# 加载包5 V; M4 f! F0 Y5 c+ o- v
library(leaflet)
0 o5 X# p: b6 y# A2 @# 设置地图控件9 b* p j) @& K& ~, { V3 ~
m<-leaflet()
. n5 O# X0 {" d, zat<-addTiles(m)% N% Z# d8 b: ?' s( ?. V
# 在弹出窗口中写一个html格式网页 根据要求来写
( r5 b% p8 V6 t8 S1 Cshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")1 t( O$ l5 v F! p P( ?4 a9 A! T
# 添加marker 自己选择需要的经纬度 popup:弹出窗口! \& s* T! X: F1 k
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
) x! O Y* Q3 x3 w% g 3 p% U4 M* Q: S7 x! P
! @ G, x0 H8 u" }( m- ^ jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")) }& x' Q& t5 W
# 添加marker / ?6 d% [. Z9 j$ [
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
" s' X; i7 p+ @6 l9 @/ g $ N0 ?; n7 x+ G/ R- h _8 }# ?+ V
4 f1 S- U; [% W9 [3 D4 j8 N, x
# 这里是添加一个弹出窗口, 设置closebutton=false 不显示关闭按钮
7 S# B0 O5 u9 k( p7 Z3 q/ YaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))/ N$ V2 N- a$ a" k# \$ _/ q
![]()
1 ]' b0 \ C, u! A# ~, o' E
$ P# E2 o8 p. G9 D6 ^$ D( P1 |2、使用leafletCN包,demomap命令绘制上海市的地图;单点标注上海交通大学:地图+标点: }6 Q" U, s: F0 s% }7 z
install.packages("leafletCN")
- o! z8 ?. n7 _5 a4 P% G" w: glibrary(leafletCN)
2 j5 n7 ]! Z; D: P/ n/ B7 U# 使用这个命令可以直接绘制上海市地图
t$ V: ?0 J7 p2 b3 S1 f8 vdemomap("上海")9 U8 [) d+ `, ^# t5 q, x1 P
( z0 d+ B, a5 W: T+ V
t' I, ?6 U, t
# 管道流 单点标记上海交通大学6 ^! x1 G) f ~0 s# j8 k1 k4 f
leaflet() %>%
3 m0 y0 I1 O6 ^2 v. p5 ]. c, n+ Q+ amap() %>% 7 V" B' ^: |: o# j' ]
+ addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
. o& f h9 ~0 b0 K![]()
' j H, p2 L; s2 a3 M1 q4 O4 k! |9 V5 p. V. O
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图,把动态页面保存好上传。- ^( Q4 ]. x J4 g! m, [3 C( Q! i, b
install.packages("REmap")* I$ e6 Q3 D& n7 y& ?- s3 v3 a+ c2 e3 N
library(REmap)
y: z7 ]/ f8 w* U& P" w6 Cdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
9 t7 m9 P. f3 e m3 t; bhead(destin)
! r& b" }6 U+ I/ Y, _3 o4 P* `names(destin)<-c("names","values")
- B) ^& G3 [. DmarkLine_data <- data.frame(origin=rep("广东",10),% {# _% W" e& b1 k$ ?4 @3 }
+ destination=destin[1:10,1],/ M0 Y( T7 [' j' _! l7 w0 M1 ?) I
+ color=rep("#fff",10)
: _ e* N1 L2 g8 j2 X+ )
4 M$ {* q& i) V+ |! RmarkPoint_data <- markLine_data[markLine_data!=""]
" x! \2 p9 C6 p1 n# R X" K5 RmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]) t% l8 G2 J* H2 H* @/ V' P0 E
# 要自己注册一个AK api key 不然无法get到经纬度
* n& A. ^7 }, n6 O% eoptions(remap.ak = "xxx")
7 m9 X& g5 ]( s/ q a8 I7 dremapC(destin,
' E$ \' @8 Q' a+ title="2016年2月6日 广州人口迁出图",
$ t: z6 s0 z& W7 v2 A# [: }2 r* Y+ subtitle="前10目标省份",1 P) c3 ^% }8 d6 L* `- G( g8 n
+ theme=get_theme(
* U1 _1 c% T9 {/ b: D: l+ #设置相应的背景色调. p0 Q+ p/ B2 B# L1 u7 S
+ theme="Dark",
5 H3 ?5 ?% e4 \4 y7 }+ lineColor = "#FFFFFF", ; \' B7 P# c4 K% Q; R8 ?7 \8 x5 y
+ titleColor = "#fff",+ g) T1 t- U) \! E& q
+ borderColor = "#FFFFFF", #边界颜色
6 {/ P3 \" R" Q) i+ o+ regionColor = "#000000", #区域颜色- }# j8 g5 D }8 a
+ pointShow = F, , `4 s; d: d, L
+ pointColor = "gold"7 [! E! j; x1 s% o! {- m
+ ),' S/ H8 n% U+ e9 M
+ color=c('#CD0000','#FFEC8B'), #颜色渐变方案,对应每个地区不同的value
* f( `, R/ h$ P( i) ^7 F+ markLineData=markLine_data,
: s! \2 }% U) E: Z+ markLineTheme=markLineControl(7 z# m: I& v2 v! L' C/ W) d- A; s9 @
+ color="white", 0 b! y3 F& J/ v
+ lineWidth=2,
j$ P; Q8 p) B- F6 f6 {, A+ lineType="dashed"
# k, W$ U) T! @, b' E+ ),4 X" z& S7 o, s( G0 ]/ Z
+ markPointData=markPoint_data1,
' S$ n. a6 E+ t+ markPointTheme=markPointControl(& O$ _, Z V1 d: S, Y
+ symbolSize=13,
9 `7 W" F# F% q+ effect=T,
+ p# I; s, ?$ K4 J0 ?+ effectType="scale", : T2 u/ y, z! G7 L7 F+ j
+ color="white"
$ r+ {' e, }7 G# c& K+ )
H9 h, X) E& p. D' S0 C+ )1 O+ K. G( E0 F, H$ K, Z: w
, g- x, T1 h7 W( B; c
) ^2 b" n1 c8 i5 I8 q
/ ?8 ?1 z: e6 u2 }8 ~% b5 Z |
zan
|