QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 4596|回复: 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、添加弹出窗口# 安装包. v+ ~4 l# F( h0 P2 \4 l( F
    install.packages("leaflet")
    + I2 P: v! q) r5 g2 F# 加载包
    . ^# Q; [) j: e, ~* |3 ?, N9 X  U1 Flibrary(leaflet)" ~9 e3 W5 }  H/ D  @" ?1 H- d
    # 设置地图控件
    " ]7 q: s2 j! |3 h: b4 _; Cm<-leaflet()6 L4 @3 q! U- M4 _2 ?# \
    at<-addTiles(m): Z' k4 l7 G2 o
    #  在弹出窗口中写一个html格式网页 根据要求来写+ u" q# _( w3 Y2 Z
    shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")& M, z/ p/ ?# o0 z1 X
    # 添加marker 自己选择需要的经纬度 popup:弹出窗口
    $ M1 J& q" l. J7 {, Z3 UaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan), q0 {; b5 Z! l# C. [+ n# Y

    5 s, `5 a5 e$ y, L8 l# C8 l) X% A
    jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")1 o; N$ D+ V( D* i
    # 添加marker % a# U8 c0 t7 w$ [# H0 S1 K
    addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
    5 D) a) J& O  O
    9 ^. l/ l; K+ A% x; n4 S( a, H* X9 ^! }, o# B0 w4 b% t
    # 这里是添加一个弹出窗口, 设置closebutton=false 不显示关闭按钮
    " j% j1 |# x9 \4 gaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))# i9 k; U) x! ^$ N6 q7 `7 w, {6 F" o
    ) I& A6 h) e' P( J4 ?
    * r* b7 b, |& e, o2 S5 R9 _) h$ g
    2、使用leafletCN包,demomap命令绘制上海市的地图;单点标注上海交通大学:地图+标点$ ?: g( u# y. `$ o6 g% ^
    install.packages("leafletCN")
    * }# w: e" \. m9 n" [library(leafletCN)
    ; p0 m0 r# T% h, l# z# 使用这个命令可以直接绘制上海市地图+ I+ v# ?0 E8 C1 x
    demomap("上海")2 j$ K4 p  q" |

    1 V2 u& u) I8 O5 O8 @; z! e: I+ v, ~
    # 管道流 单点标记上海交通大学
    % q. ~: p7 d- Y( G; q  H, Sleaflet() %>%
    2 K$ Q) f; v; l+ ?5 w+     amap() %>%  4 i3 n# e" b& T9 r
    +     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")* |* D+ l# t' C1 g

    * n5 Z/ z) c7 a5 H* @# q4 M0 ?% \" M, X$ T! z
    3、使用destination.csv数据文件绘制2016年的广州春运迁徙图,把动态页面保存好上传。
    " G: L3 ]0 A5 l/ B/ P& a2 [$ ]& Einstall.packages("REmap")) B6 b* j, v" `
    library(REmap)2 _* }* o# X, _/ j9 n' w
    destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)& H7 _) }3 ^- c
    head(destin)
    . U% A7 f5 y. ?names(destin)<-c("names","values")% l. ~/ T4 p* B  R9 w
    markLine_data <- data.frame(origin=rep("广东",10),* n8 P5 x8 P' U9 k6 `
    +                             destination=destin[1:10,1],/ R* ^+ z; ]- m* M
    +                             color=rep("#fff",10)
    1 F3 a3 `1 N0 e, a+ )7 a/ r$ S9 J9 h
    markPoint_data <- markLine_data[markLine_data!=""]1 Y# n0 a! {! L. C5 f9 `
    markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
    + U" Q! b8 {0 U: \, ]& u, Z7 R  M# 要自己注册一个AK api key 不然无法get到经纬度, f' y3 P! Z" b5 b7 v& I' G
    options(remap.ak = "xxx")
    & _/ B& F3 a6 Q, N" [0 LremapC(destin,5 ]9 Y0 z/ _+ f) O( q; w
    +        title="2016年2月6日 广州人口迁出图",
    9 |0 K  c3 Z' @+ c, F# H+        subtitle="前10目标省份",5 @3 i/ u; P$ s( c) v- K
    +        theme=get_theme(                                         5 q4 G0 \) v# ^% u0 N2 r
    +            #设置相应的背景色调
    ; Q! i( B; A0 p; m5 e0 W2 n" l- Z; N+            theme="Dark",! Z5 U8 y5 @# l3 Z$ g2 U
    +            lineColor = "#FFFFFF",  ' _" o: v) I. i9 j* u; T5 {, _
    +            titleColor = "#fff",, k# B' z5 V! P/ N: J& v9 m
    +            borderColor = "#FFFFFF",  #边界颜色
    : M) \" G2 S# k6 j8 M4 O; E0 N+            regionColor = "#000000",  #区域颜色
    + f& B" Z/ t8 \7 a+            pointShow = F,
    & I% y. H+ G4 H: x& d7 d/ s+            pointColor = "gold"
    9 }  V9 W+ ^0 m* S+ I4 x5 ^+        ),4 j, S' |+ v+ U8 g9 `- p% k( a% O
    +        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案,对应每个地区不同的value: f% g1 p" [; |
    +        markLineData=markLine_data,   5 U. {1 H+ x5 m, f
    +        markLineTheme=markLineControl(
    1 \) J9 u. D3 q' x1 L0 S+            color="white", 2 R8 X$ x' l8 W& u
    +            lineWidth=2, 7 x( W; c' \* {" ^( u* i. g7 |$ x4 k
    +            lineType="dashed"  
    + \0 r* e, q, C) U2 i3 F# Z! I+        ),
    % c3 f. y. {% F/ \& v+        markPointData=markPoint_data1,0 _, V4 s7 u" s! M: X% S
    +        markPointTheme=markPointControl(
    , J3 \/ v  G1 i, B( ~, L7 f+            symbolSize=13,  0 b) s$ r/ B8 y- U7 J2 z3 Y
    +            effect=T,           
    ; U6 y3 Y% j8 }" p! L6 y+            effectType="scale",   
    " n/ W7 ~3 p" L) {+            color="white", V% Y! e* l, ]
    +        )' u/ _8 x$ G: m3 m. f; o
    + )
    ; h8 o9 n; W! @/ P/ z" X* g/ q
      a4 j+ Y5 J) z  m2 S8 K$ p; J$ d- K( K, W  q, D/ |6 `" H

    ! E: K% A; N: M! ^% Y0 [
    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 01:42 , Processed in 0.675611 second(s), 56 queries .

    回顶部