QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 4529|回复: 1
打印 上一主题 下一主题

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

[复制链接]
字体大小: 正常 放大

1178

主题

15

听众

1万

积分

  • TA的每日心情
    开心
    2023-7-31 10:17
  • 签到天数: 198 天

    [LV.7]常住居民III

    自我介绍
    数学中国浅夏
    跳转到指定楼层
    1#
    发表于 2021-10-29 11:41 |只看该作者 |倒序浏览
    |招呼Ta 关注Ta
    R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包% U$ _; b, U0 w7 |; H
    install.packages("leaflet"). ]6 {+ z& G! @' a
    # 加载包
    + c5 ~' z8 t! qlibrary(leaflet)
    + w0 Z# S" `4 I# E1 A0 C# 设置地图控件
    3 t( |: E" x2 x$ w4 F. zm<-leaflet()
    / v- B/ v# h  P9 c! W+ vat<-addTiles(m)
    4 Z% `; F% b, E- |#  在弹出窗口中写一个html格式网页 根据要求来写
    # m. p* W2 r4 W: l& i# L2 r: H" p1 Gshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
    % D1 G  r( h, X5 L3 b! I7 ^# 添加marker 自己选择需要的经纬度 popup:弹出窗口
    " x; F# C) s  l, f$ D" KaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
    4 `4 F5 e  |8 B" n9 a9 j' c7 b* Q: V* }* ?. }9 _: P5 B
    * f5 k* a" |* E& ?$ [- Y4 O' c. i
    jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
    2 _! `: J* w8 }7 e: ~3 G' {, ? # 添加marker
    ! b" s" D5 q- L9 {; {+ l1 Z addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)# r! \8 h# K4 x; A

    ! h4 _. H. e, y2 Q3 M; {7 W1 }6 t$ ]( w
    # 这里是添加一个弹出窗口, 设置closebutton=false 不显示关闭按钮
    ) h0 K% r6 d1 V. h: W- I+ daddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE)), I5 x6 e! B+ j' z* r; P+ a) n

    ! I+ c% t" ^, L6 j% L8 R9 V" Z
    7 X/ z7 b! T) D* g9 j2 \3 F2、使用leafletCN包,demomap命令绘制上海市的地图;单点标注上海交通大学:地图+标点
    " f8 o0 u" r% c* }' |1 e& p! Ninstall.packages("leafletCN")
    ; @3 v5 J2 J- ~6 @library(leafletCN)
    ) L9 n4 s% B( j$ x# 使用这个命令可以直接绘制上海市地图! C+ \9 M5 j7 n; G
    demomap("上海")
    # g! {& G# |, D* l8 d: a% A
    # `4 ?4 p$ V: D2 J& n2 C/ J8 f2 E% _8 z8 A
    # 管道流 单点标记上海交通大学
    8 @. Q7 T) t; u; ]$ D# e1 o' Kleaflet() %>%) K; n6 g1 L0 O3 _
    +     amap() %>%  
    8 g- D2 k+ k" r0 D5 T/ P/ T+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
    7 N6 l" v( D( i
    ) O2 v" E' ]: d7 _2 w7 |
    , J9 D9 Z, I) g& o/ m3、使用destination.csv数据文件绘制2016年的广州春运迁徙图,把动态页面保存好上传。
    , l9 p  `/ C+ j' }9 u. finstall.packages("REmap"). P$ X3 Y: F$ O9 l; F$ T# B; V! W+ l
    library(REmap)
    0 X, Z# K" L; l- O1 vdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
    . a/ M6 f8 l6 P  l4 R0 t& S' M* ehead(destin)# S5 @; r1 \8 y; F; i
    names(destin)<-c("names","values")
    3 R; K7 i. U& p$ Z# P% pmarkLine_data <- data.frame(origin=rep("广东",10),
    8 p+ B4 l' f- j- K+                             destination=destin[1:10,1],
    4 P5 W' {, S" ]" Y! P+                             color=rep("#fff",10): W0 [5 ~- ~' [5 e3 t) V# J& N! J
    + )
    , A$ x* S( d2 q* \markPoint_data <- markLine_data[markLine_data!=""]
    " R3 m8 p& C1 b$ m* P0 fmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
    7 h7 E& z: ?7 O# 要自己注册一个AK api key 不然无法get到经纬度
    4 [4 e8 a( t7 F7 i7 voptions(remap.ak = "xxx")# V5 w& [! ?& W" m& ?% u
    remapC(destin,6 @9 ^4 p$ h7 D8 ~4 q8 a
    +        title="2016年2月6日 广州人口迁出图",0 q( M% C2 I, a1 I0 X: O+ w& R
    +        subtitle="前10目标省份",) `4 [, U* m  h! o6 o- u, j; G
    +        theme=get_theme(                                         ) U7 l- N( @& ?1 D/ ^$ I
    +            #设置相应的背景色调3 a" ^- o" F' p/ U: \
    +            theme="Dark",9 R  Q( g  x- Z. b
    +            lineColor = "#FFFFFF",  3 k* B: `% w" X3 X1 r+ q! Z7 K
    +            titleColor = "#fff",
    4 p1 g8 u+ X. K) y6 I+ L% ~+            borderColor = "#FFFFFF",  #边界颜色
    & J9 G6 u% ]3 L- ?  G/ Y+            regionColor = "#000000",  #区域颜色% Q: S* ]6 K: H" T$ a5 m/ d& f
    +            pointShow = F,
    ' J% i& P/ p6 ?6 c+            pointColor = "gold"
    6 E  y- e4 W% d+        ),
    # ]: l" k' X- Y+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案,对应每个地区不同的value0 a/ b1 I2 v3 |- W( J
    +        markLineData=markLine_data,   5 m  u& q7 s. h) k" ?9 x
    +        markLineTheme=markLineControl(
    ' f# o. z; ^) _+ l+            color="white", 8 _& x4 l* E# t, G) B4 G
    +            lineWidth=2,
    3 c9 [1 S) J+ e% e0 Q+ `+            lineType="dashed"  
    ( C  N# I2 @5 q% F' D0 C1 s+        ),6 {- {' D: P/ j6 d# K- Q
    +        markPointData=markPoint_data1,
    ' N7 @- s" E# b* B+        markPointTheme=markPointControl(
    7 z: V) d7 y8 R: g3 S+            symbolSize=13,  
    " j4 r" ?+ H; A0 `" @+            effect=T,           7 v: W* C: h: H9 Q
    +            effectType="scale",    ) c* v5 A2 o- t& @  |9 D/ O/ t
    +            color="white"! M0 f! a/ }0 M1 Q6 \& m
    +        ). Y. x7 T6 W' C4 |; a6 F" G
    + )( w( ~) s+ ~8 Q2 x0 M: |7 T. e
    3 E3 O. |* ^9 {2 V$ Q% c% `
    % z" I$ m# r, ^8 [% x. R
    : N" {  Y  a# I8 W5 n+ [, }" ~% @
    zan
    转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
    试试吧        

    0

    主题

    1

    听众

    4

    积分

    升级  80%

    该用户从未签到

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-7-22 10:28 , Processed in 5.403467 second(s), 55 queries .

    回顶部