QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 3940|回复: 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、添加弹出窗口# 安装包
    4 b: J6 ^/ [! y0 ^- @& `) n7 }& m0 cinstall.packages("leaflet"). M, T" t! K* I  R2 L
    # 加载包
    / p( i2 [2 u% T/ w  Q! L/ Plibrary(leaflet)
    ' a5 P, c5 m; D5 E/ c$ M# 设置地图控件
    ; F$ P6 ~8 e0 G, n7 sm<-leaflet()
    7 D- O; H( [- x5 Z$ bat<-addTiles(m)
    # _4 O/ o$ r2 Y#  在弹出窗口中写一个html格式网页 根据要求来写
    2 K( i! x1 i% P; g" O8 a9 F4 ^shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>"), ~' p9 Q/ W: r
    # 添加marker 自己选择需要的经纬度 popup:弹出窗口1 {8 `% I% x+ _# x" F' h3 y3 w0 K. Y
    addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)# B3 M6 |( W' U' Z9 O+ u- v! b

    0 h' t  v% C0 t8 z2 h! U
    7 |: s. h  y& E5 |- Z jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")3 F% O: U) Z8 p3 _
    # 添加marker
    0 ~+ |& E4 @' w7 D addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)( {" s  u1 V1 o$ }  l7 C2 f  z/ a
    & A) |. [4 g. n7 E: P
    . g$ a4 m1 \. ]$ z. k
    # 这里是添加一个弹出窗口, 设置closebutton=false 不显示关闭按钮! r5 z) f4 d+ t$ A3 z
    addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE)). `/ p1 O% Z* }" x& o8 W9 i- r% r
    . J& m. I  g: f5 y5 `; V, Z
    . X# k: x3 Q' G9 X6 d
    2、使用leafletCN包,demomap命令绘制上海市的地图;单点标注上海交通大学:地图+标点" I, Z5 d7 X7 d! G9 [" u
    install.packages("leafletCN")
    9 ?) g' O! f7 S+ s* n2 ulibrary(leafletCN)9 B0 W0 k# \% ]3 D5 m
    # 使用这个命令可以直接绘制上海市地图" Z: t2 B9 P  K
    demomap("上海")
    ' C2 J% g2 ?1 C. q* z, `4 V4 ^5 X5 p; ^* S2 H; d/ t) k

    2 Q5 E4 O# H7 ^. @. _9 x# 管道流 单点标记上海交通大学
    4 q# H+ w$ g, ]4 x3 ]+ @! J0 @leaflet() %>%
    # ?3 ~0 p% r3 `4 v7 ~9 J3 x; W& H+     amap() %>%  , G  d- e) {! E/ J' H! m$ B. n1 L# h
    +     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
    7 K% I7 G0 @0 R! Q9 v& ]' ]  \' b( k7 V* o" W
    $ ?  t& z+ P, e( a7 {" A0 @+ F
    3、使用destination.csv数据文件绘制2016年的广州春运迁徙图,把动态页面保存好上传。
    5 y- U- P/ d0 L' M' e" D9 {install.packages("REmap")
    8 D) `: q! F# R. n# K7 clibrary(REmap)
    + e% J- ?0 N; Ydestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
    5 O& d% \- y  Yhead(destin)
    8 d( z# n$ J1 xnames(destin)<-c("names","values"): d" c  }1 {4 s$ H9 o
    markLine_data <- data.frame(origin=rep("广东",10),
    , r3 m. g+ x% O, h- U! [- d+                             destination=destin[1:10,1],+ o: b. |, L; T- s3 J# Y
    +                             color=rep("#fff",10)
    0 L, x4 N9 t! m2 J& d' a/ C+ )
    / J3 X  t# o7 ]/ ~& r4 o% JmarkPoint_data <- markLine_data[markLine_data!=""]
      b+ q- C& e" h0 t  O  mmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]0 P; _6 P: r  I- @8 k0 G+ b8 L9 M& b
    # 要自己注册一个AK api key 不然无法get到经纬度, W& P. D. R3 J; p
    options(remap.ak = "xxx")
    + h* Z1 P; B8 ]! mremapC(destin,$ d8 K/ E5 ~+ S/ I& v$ Q( o8 `0 g
    +        title="2016年2月6日 广州人口迁出图",
    + K2 {) P4 m9 f+        subtitle="前10目标省份",
    % N" [$ z1 o( }+        theme=get_theme(                                         
    . O: v5 A( b: @* @% G; L# t+            #设置相应的背景色调9 e4 z3 Z9 A6 j& w/ D# P
    +            theme="Dark",0 Z8 E# G5 U/ q. \
    +            lineColor = "#FFFFFF",  0 ~1 ?3 h7 k, P& s7 A% u
    +            titleColor = "#fff",- Y% o5 s' e% {/ m5 M% P& W
    +            borderColor = "#FFFFFF",  #边界颜色
    5 ~4 _# [1 [1 R7 }8 [6 g+            regionColor = "#000000",  #区域颜色
    ; j2 g+ r6 E9 e( I' ~. w5 G2 a+            pointShow = F, + ]3 ?/ Q/ G1 R6 U4 c
    +            pointColor = "gold"# j1 Z3 ^8 I, }/ z% L% F3 A
    +        ),
    # h/ X: E2 x. s* b+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案,对应每个地区不同的value/ \5 ~0 @) j3 P; N
    +        markLineData=markLine_data,   1 G$ F2 D0 `' M+ W- s9 F
    +        markLineTheme=markLineControl(. J) X) x' P; D4 y7 x4 E8 y. n5 ?
    +            color="white", / \0 \; R6 }! a- {. z
    +            lineWidth=2,
    ) b& c6 _1 |( k. C* W" D+            lineType="dashed"  
    0 B1 x( g! w& W! w. ]& a8 f; B& r+        ),5 A8 N1 l' j0 l* Z" t' g% M
    +        markPointData=markPoint_data1,
    2 P6 r9 c! `8 P+        markPointTheme=markPointControl(
    * p7 \( Q5 W" d" c5 D+            symbolSize=13,  
    + _1 h3 n8 p- ~0 E1 M" Q+            effect=T,           
    1 @- b& w: l# Q$ \+            effectType="scale",   
    " i. r% B: ]. u! F/ B+            color="white"3 `- X4 V  o( O: E
    +        )
    , d6 T" k: h4 n3 p* x0 X$ x+ )7 `5 \& F6 W- x% r' w) M9 _$ |
    5 Y( d- f) o7 q; @  n

    . o4 K; ^/ ?& q! d9 P% j8 w1 W
    " U4 |5 J8 K! x4 E2 h8 @
    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, 2025-7-11 18:54 , Processed in 0.739339 second(s), 56 queries .

    回顶部