- 在线时间
- 514 小时
- 最后登录
- 2023-12-1
- 注册时间
- 2018-7-17
- 听众数
- 15
- 收听数
- 0
- 能力
- 0 分
- 体力
- 40296 点
- 威望
- 0 点
- 阅读权限
- 255
- 积分
- 12800
- 相册
- 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、添加弹出窗口# 安装包* g, S. L4 I2 H1 x( M
install.packages("leaflet")# Y3 l/ l6 O( z+ {
# 加载包 g5 I7 W! d3 ] _: I2 Z
library(leaflet)! l. r& u# a, E% g% m0 ~3 U5 @
# 设置地图控件* @4 S( s! z {$ T1 ?
m<-leaflet()
6 U% g9 s1 x9 O8 pat<-addTiles(m)
- ] F- _# R) ]1 K1 I5 T# 在弹出窗口中写一个html格式网页 根据要求来写
+ q Q' U9 y+ h+ @shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>"). R& V2 g7 @ h5 ~' E D
# 添加marker 自己选择需要的经纬度 popup:弹出窗口6 ^+ Y- f3 A/ ]# [; D" C
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)4 @+ _1 B9 P( Q
![]()
5 a6 y* v# }6 a
# ?8 j, g. |% t0 | jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
( l4 t0 q$ B1 ^+ A # 添加marker
# W# t7 v7 P! d2 i" X addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
# f* L. E# O* a & ` B. a4 r& S0 s/ u
6 i) y8 N/ z w& e
# 这里是添加一个弹出窗口, 设置closebutton=false 不显示关闭按钮
# [/ [# j) @ R `8 Y) aaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))3 G4 y: \5 p9 X0 ]( v
& T7 T5 ^' I* M; L+ |
* C- f0 A! ]" }1 ~$ |
2、使用leafletCN包,demomap命令绘制上海市的地图;单点标注上海交通大学:地图+标点, _3 e( S6 B. u5 Y/ f
install.packages("leafletCN")
4 _& T3 m; `# x; hlibrary(leafletCN)
) h, R+ R, H# c$ Y7 K# 使用这个命令可以直接绘制上海市地图
: A. a- u1 k. z7 O ^# N2 a: jdemomap("上海")
6 R8 b( i+ `( ^, Z N 4 ]. j* F3 y) A
8 s# b1 C- Y2 o
# 管道流 单点标记上海交通大学' z, O. S( o1 D% x. `
leaflet() %>%
6 m% G% j' A5 O+ ]+ y, Q+ amap() %>%
* a& l1 I$ s# C9 C0 {% l+ addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
- x" r% h9 C- f# I% V; R3 b7 U![]()
9 s9 G) g, K( G+ V/ Y+ \7 F1 b0 Q1 [/ _5 `: ?% b; ^
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图,把动态页面保存好上传。; ]6 L. b& D$ A
install.packages("REmap"), t7 ] h1 F# Y/ i0 ]9 [; m; i
library(REmap)1 Q9 Z8 a% |( r& Y
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
4 W9 O0 T! y: Ghead(destin)
' p R# R& I3 V, n# {- \names(destin)<-c("names","values")/ k% i) s5 C' F: o9 J
markLine_data <- data.frame(origin=rep("广东",10),7 X" Z* s# N( z0 ?$ P! K
+ destination=destin[1:10,1],( N+ T7 O+ a' j; ?* v) N
+ color=rep("#fff",10)% E6 [! s6 g5 m- r( D! g% K3 n
+ ). \) g. o. ^1 s( H' Q
markPoint_data <- markLine_data[markLine_data!=""]
! t& e2 M! o9 a$ p `3 N- VmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
4 f8 X% U+ h! t, S# 要自己注册一个AK api key 不然无法get到经纬度( Y8 `1 M. N' ~; k" E
options(remap.ak = "xxx")* A0 a' t) D! A: S
remapC(destin,: S' z# k+ n, j N2 B& |, q
+ title="2016年2月6日 广州人口迁出图",
7 X/ P3 I5 B& c* h7 O* K) h" G8 F+ subtitle="前10目标省份",' O8 o+ _/ R2 E! g9 e) T
+ theme=get_theme( 8 |( s5 A9 G' ?$ E7 ?
+ #设置相应的背景色调8 M6 k; b, f1 o8 K$ D3 q
+ theme="Dark",
2 S8 S1 D. R) n+ lineColor = "#FFFFFF", 2 _7 L$ U5 `5 B& n9 D; U1 Y
+ titleColor = "#fff"," e& f# I' d C% Z
+ borderColor = "#FFFFFF", #边界颜色
, L/ W+ u1 O3 \. D9 b h" l9 e/ _+ regionColor = "#000000", #区域颜色, r+ k( w, l k! s2 n! v
+ pointShow = F,
- c R" _; T8 E% Z a+ pointColor = "gold"
j( e. @" ]; d6 v2 B* L+ ),3 \3 L8 C, j3 d/ x
+ color=c('#CD0000','#FFEC8B'), #颜色渐变方案,对应每个地区不同的value) ?! I' C& K! @. @: l
+ markLineData=markLine_data,
2 @8 s: {% A, M& f5 Y% z+ markLineTheme=markLineControl(
/ C5 L, s3 ^ o+ color="white",
0 G6 d7 [/ z7 \* G0 i. [+ lineWidth=2, 7 D1 o* `4 L" Z( r! u
+ lineType="dashed"
( O* m! i4 x4 Z7 X+ ),3 _9 a2 a8 ?/ V
+ markPointData=markPoint_data1,- ^- g" Y0 M" F- U
+ markPointTheme=markPointControl(
: A0 Y5 R; o5 d0 \+ symbolSize=13,
3 p0 |1 h' w8 V7 U+ effect=T, ; \& ]8 ~- Z2 {$ Q$ S
+ effectType="scale", 4 c$ w. i7 u- w# C5 U% [
+ color="white"
# V3 e" A9 s' r8 g8 s, L. E7 f+ )" y" T. X) j5 \
+ )
: B2 m6 \* @# g: O1 o, R / |, i |2 m$ b1 {1 I( ]
9 o" a- c" z4 f- w3 c% G
0 x2 W! O4 N G% C: @8 T |
zan
|