QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 4595|回复: 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、添加弹出窗口# 安装包
    ' ~2 W8 @- j# G0 D2 U1 W$ \install.packages("leaflet")
    7 d: f8 P' j: r' R% Y# 加载包
    ) V; @4 i% I* v' olibrary(leaflet)# ^% K) W; `: Y; z' X; Z9 J
    # 设置地图控件
    ( e1 _1 m1 s9 }. vm<-leaflet()
    ! a3 _5 ?5 L/ u4 }6 sat<-addTiles(m)
    % A6 e' H- N' V7 o; H" `#  在弹出窗口中写一个html格式网页 根据要求来写
    - p, `' R( F. x7 G6 xshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>"). I: ^( x! l/ V1 p4 I
    # 添加marker 自己选择需要的经纬度 popup:弹出窗口' V. \5 H" W. c" w4 |+ z: o
    addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
    4 n" e& ]. }* P% I5 d. |' w8 k+ A! J3 }/ R2 U

    4 n& y+ X$ z5 D. ^$ C4 f jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")9 k6 x) i% @0 P# c, l" A' u
    # 添加marker 2 X4 w9 F+ c* O3 C7 s$ u3 ^; U
    addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)# x, \7 x, J( A! T: @: W$ @
    ; o- O$ S1 N) p
    , v" o' H. }1 {
    # 这里是添加一个弹出窗口, 设置closebutton=false 不显示关闭按钮
    4 p, W! ~: t( l6 |6 XaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))$ a- n3 k  o$ o0 R! T% z
    - S3 F6 ]# h4 u1 z
    ; f6 ]: h9 V5 a! D9 G
    2、使用leafletCN包,demomap命令绘制上海市的地图;单点标注上海交通大学:地图+标点
    , v# S/ P$ v: t) p' I* k" Tinstall.packages("leafletCN")% H& z* k: g! X8 O
    library(leafletCN)
    ( c, S4 m. X0 G# z0 U4 H) I; _# 使用这个命令可以直接绘制上海市地图# v6 h$ o6 }3 J* u0 L
    demomap("上海")
    * s( h. Z- |# a% D3 g- V1 k" {; c* X: h8 ?5 J; _9 v. S% @* j
    - T; f2 I% K3 _) S( J$ {; L2 Q5 L
    # 管道流 单点标记上海交通大学6 L* t( J0 l1 ~+ `
    leaflet() %>%
    4 S2 P1 m/ C  r- k2 ]* b# n" t- U+     amap() %>%  
    , Y  {/ p& Y8 k& z+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
    9 y6 j( o) R& E$ {6 [9 M' p! q- c5 j' t  J6 X3 m: g
    # o; V# ^% m4 I8 o$ E+ W
    3、使用destination.csv数据文件绘制2016年的广州春运迁徙图,把动态页面保存好上传。4 |" k* i% A% _; q- E' L( g( o# ?2 Q
    install.packages("REmap")9 U5 R7 L! `" k  P9 n, O
    library(REmap)
    ! {: I0 a; y+ O1 r3 [destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
    1 o- R; |. Q% P5 T; a/ Yhead(destin)7 A$ F6 v4 T; [
    names(destin)<-c("names","values")
    / c* r# L& ^, @7 R. ^: G: AmarkLine_data <- data.frame(origin=rep("广东",10),
    6 X- u) l# I" z5 |% ~7 m+                             destination=destin[1:10,1],
    7 O/ t) C; a7 _# n+                             color=rep("#fff",10)# ?7 e  x( h5 N; M' Z3 ]3 k
    + )
    3 K' t/ I6 q- l" omarkPoint_data <- markLine_data[markLine_data!=""]: l! }4 W* c8 W/ D4 o! \5 s
    markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
    - {0 l9 l+ ~  t4 `& V# 要自己注册一个AK api key 不然无法get到经纬度
    + O5 E- f( e' Q& K: }8 V, roptions(remap.ak = "xxx")0 K1 Z# T; A$ l* u' b+ _+ B
    remapC(destin,9 t' B; I, Y! ^# \  u! |1 n
    +        title="2016年2月6日 广州人口迁出图",9 J+ ~9 X& X9 _' ]7 S4 Q
    +        subtitle="前10目标省份",
    ) ^% c3 a' f; j  J% D6 R- ]+        theme=get_theme(                                         " u! z3 e" I6 X4 ?
    +            #设置相应的背景色调
    4 y: d0 y( q& n+ V! X) ~( z' |0 n+            theme="Dark",
    / f: Q4 c: F( C9 T+            lineColor = "#FFFFFF",  9 y* s7 Z8 k2 B4 W
    +            titleColor = "#fff",
    $ J  v; P& b- _) K2 e; D/ y+            borderColor = "#FFFFFF",  #边界颜色- g$ d! G% l! h$ T& Q
    +            regionColor = "#000000",  #区域颜色
    8 x: k" W- ~; Q. F0 H" U& A$ z+            pointShow = F,
    5 h% _% F) J$ }, o8 e+            pointColor = "gold"9 }. |8 h, T9 E- S
    +        ),
    + |* u$ J4 E! H9 V+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案,对应每个地区不同的value+ J; X* X( l# J5 m8 t/ n9 p
    +        markLineData=markLine_data,   
    " d8 r  q% n% c1 D4 h3 D+        markLineTheme=markLineControl(
    2 g. X' [7 e# o$ Q+            color="white",
    ' k& P- X) y' N) \+            lineWidth=2, / f) k# [3 E* @: q& d! [8 S
    +            lineType="dashed"  8 l" I# N5 ~% ~4 _" @+ Q, u: n
    +        ),' l/ M2 G; b5 k! y+ z/ O
    +        markPointData=markPoint_data1,
    6 N8 ]: L9 B  v+ A6 x' r+        markPointTheme=markPointControl(& s- i! c4 q$ H
    +            symbolSize=13,  
    / W) P4 u) F0 H2 Z+            effect=T,           5 O2 ~+ P' Y8 V- j$ V/ x
    +            effectType="scale",    5 \- B- L4 b4 ]& ^( B. K
    +            color="white"
    5 p$ d6 _# q( _2 S6 F! d' n+        )
    " `0 c1 n, L3 B! Y2 I+ )" I& M& V% ~. Q! o7 [: {0 R

    0 M, ?. I6 K, e
    " N* I# ?+ c, o* O5 d, T9 F* A2 G$ r8 K7 T  c  v4 f
    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-9-5 00:34 , Processed in 0.671961 second(s), 56 queries .

    回顶部