QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 4458|回复: 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、添加弹出窗口# 安装包
      ?$ e# ?& [* ?install.packages("leaflet")
    & b+ w3 T5 q  p. W  _+ [# 加载包; g4 k: h* m8 O# y
    library(leaflet)
    6 p1 s9 r" l" b# 设置地图控件
    7 j2 q) u+ `; Y9 m1 @. xm<-leaflet()% ]- d+ W/ c- J
    at<-addTiles(m)
    6 D% \! N8 v. |0 P#  在弹出窗口中写一个html格式网页 根据要求来写, c6 f5 l7 I% _5 [5 Z
    shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
    * `1 E! g2 @" Q- t/ z# 添加marker 自己选择需要的经纬度 popup:弹出窗口
    8 F% y# k  J- |5 G0 i+ DaddMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
    0 F! }4 H6 q% w  J+ s; g
    1 U! B8 n! U4 ?$ H+ n7 x) r; ?) E( o  w
    jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")8 @& u4 q, {+ `$ L
    # 添加marker . b# [9 o! l2 t  X" |
    addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
    ' o8 a2 }$ W) C2 r2 W: W$ h
    + x" m1 W# G3 w6 d2 y2 ~6 h# R5 q, `: ^4 D2 P/ T/ M
    # 这里是添加一个弹出窗口, 设置closebutton=false 不显示关闭按钮! s( D$ O- ~, E: X' ]
    addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
    $ H& S8 e; Y! B* s6 f& |: Y/ v7 {2 I8 D1 p- r# M2 y6 `
    2 i. ?: s+ g' P* F; b% H
    2、使用leafletCN包,demomap命令绘制上海市的地图;单点标注上海交通大学:地图+标点( B6 Q4 d& y3 K& s* L! w& f
    install.packages("leafletCN")
    * d. J; I5 F- K) C, u- V4 Zlibrary(leafletCN)! f0 w3 _0 v" p+ C, @
    # 使用这个命令可以直接绘制上海市地图
    8 B! I" D! u/ X/ tdemomap("上海")
    & W6 E4 r- V9 c4 H# u: I
    0 M+ f8 E6 \2 O: `
      E* v- Z+ U6 Q) b8 k* n) I# 管道流 单点标记上海交通大学4 ^1 K4 ]5 l7 H  ]
    leaflet() %>%6 f! Q: k6 M; Z1 t/ _, {  G+ ?8 m
    +     amap() %>%  
    % H3 ?0 P/ Y( B2 o! D% P5 c+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")4 d( o, P2 i4 C2 U
      {  {# h: J, ]* `7 B
    2 b- y. ?$ o+ H6 h
    3、使用destination.csv数据文件绘制2016年的广州春运迁徙图,把动态页面保存好上传。
      s* K0 x  B  r' ~' F  I/ N7 A+ jinstall.packages("REmap"); S1 B4 e" t  p" j$ F& V
    library(REmap)
    " k7 S$ |7 F7 K2 o+ u7 U! b8 p2 w2 edestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)9 ~" |$ w6 \/ O; s+ V
    head(destin)
    9 V% M. J8 U. P8 j1 \5 Hnames(destin)<-c("names","values")+ g' ^6 N$ o5 _, D
    markLine_data <- data.frame(origin=rep("广东",10),: ?" |; O* A& Z$ N4 B" L
    +                             destination=destin[1:10,1],/ v4 r' H: L! E; g- ~
    +                             color=rep("#fff",10)
    ' l) M' u  z' k2 q+ Z. O1 z+ )
    3 j6 D) J' N; N; q" ?8 K; X! jmarkPoint_data <- markLine_data[markLine_data!=""]
    . m0 H3 i( G4 @- m! FmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
    7 \% V) p" o& N5 b* m  \4 a& O$ n# 要自己注册一个AK api key 不然无法get到经纬度) y  X: Q% }" b, S9 J6 N$ P
    options(remap.ak = "xxx")
    1 h6 {7 v9 F; f1 iremapC(destin,; B3 ~) C4 A  M, }
    +        title="2016年2月6日 广州人口迁出图",, g5 a! O8 ~- j5 K: b% q% m
    +        subtitle="前10目标省份",
    . c4 Q2 [) O& v  T( O# F+        theme=get_theme(                                         * E$ G- ?6 b2 ?3 G& F
    +            #设置相应的背景色调( H0 ?- h6 u2 w5 m2 F  f
    +            theme="Dark",
    7 o( }6 I$ I4 @0 R! p9 k0 J+            lineColor = "#FFFFFF",  
    9 `. `9 l8 i  z/ l& h+            titleColor = "#fff",, d0 }" K( N8 v" y* u9 _  e2 i
    +            borderColor = "#FFFFFF",  #边界颜色7 ?1 Z4 I6 A8 |1 e
    +            regionColor = "#000000",  #区域颜色
    5 u& j! j$ s, `+            pointShow = F, / U# b+ B: e2 K, Q* y
    +            pointColor = "gold"
    ! Q5 M4 P' j" F/ |' l+        ),
    7 w( N( l5 X+ A# m+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案,对应每个地区不同的value& t+ t0 [8 O1 x* u1 L
    +        markLineData=markLine_data,     J2 T7 _/ T! u2 B( F8 I  x; L
    +        markLineTheme=markLineControl(
    " e6 D( c/ d( P. O" K9 h+            color="white",
    9 w* M9 W$ O% P: J  _8 F+            lineWidth=2, + C9 B+ ^' {/ L
    +            lineType="dashed"  
    , x; D% J1 o6 f) A2 h7 m% B) V+        ),
      `, R( S! J; l+        markPointData=markPoint_data1,
    - P! Z9 n5 B. K$ T+        markPointTheme=markPointControl(
    , t+ T/ t2 ]: y, ^0 M: }+            symbolSize=13,  
    & X; W  d& {% k" v8 D+ v+            effect=T,           
    3 v" l+ S: @0 i7 |6 Q+            effectType="scale",   
    : H5 B9 s! i; y! j' r7 N+            color="white"& T9 R, d0 j& s% u( V6 s1 a5 t/ @% i
    +        )
    1 z8 T3 M( e( m" w- z0 J+ )
      g: V0 R+ G" A+ \8 I' r% ^( M( ]: l3 M2 I4 F! t

    + E1 O, a8 Q) ^
    . D3 q' M! S# |7 C& _! {8 }: O
    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-6-4 15:11 , Processed in 0.434959 second(s), 55 queries .

    回顶部