QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 3997|回复: 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、添加弹出窗口# 安装包  @" i+ V+ y5 o5 J4 U$ Z
    install.packages("leaflet")' }- f1 ^! ?6 L
    # 加载包
    . M8 i: Q$ q  T: klibrary(leaflet): t6 b6 V2 ^: h! e
    # 设置地图控件
    1 [5 K" [; W5 A: l& b' F$ ~& A3 _m<-leaflet()
    * v8 B2 J2 F) j/ j5 uat<-addTiles(m)
    : Q# o9 [  b. H" p, p" W#  在弹出窗口中写一个html格式网页 根据要求来写
    2 x7 z: B6 l. z; X3 lshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")5 |! l  A0 j+ W1 u
    # 添加marker 自己选择需要的经纬度 popup:弹出窗口0 a3 _7 k2 ]5 Z4 l5 _+ X* `; H9 ~( e
    addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)$ u7 @3 W: ~8 J  B0 ]
    * a; J' w. Q. q( `) U5 Q# V, X
    ; k" f4 z* F2 F% k- P& N2 e
    jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
    & R( x$ ^- f' P0 f # 添加marker & u7 a+ ^) A% @
    addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)9 R: b& V8 t$ A+ l
    9 N; c% S( C+ k) F7 J" S% T! Z
    9 O+ k8 y' Y. Q- {0 M
    # 这里是添加一个弹出窗口, 设置closebutton=false 不显示关闭按钮2 R4 u6 b- M4 Y3 [
    addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))" K, C; J8 L$ L' a$ [
    ) @2 W' S8 q2 u1 q
    % Q- k) o  O/ F* f- n0 j
    2、使用leafletCN包,demomap命令绘制上海市的地图;单点标注上海交通大学:地图+标点
    9 v* K' b1 t) `4 ]9 Binstall.packages("leafletCN")' g% k4 `- o8 N
    library(leafletCN)
    8 U* O/ ]1 U( n+ R1 Y' z) U7 E: H. t# 使用这个命令可以直接绘制上海市地图
    , O& [& V# z" K! B8 [demomap("上海")
    : r  d2 L1 ^9 S" A4 H4 f: [6 H, ]; W; `! p7 Z, P1 @4 p' F2 a

      l7 Q8 m2 ^2 |! a* x# 管道流 单点标记上海交通大学2 M; r) N0 h1 o- j( [1 y
    leaflet() %>%( Y) a% X( }& v5 U: j/ e
    +     amap() %>%  
    2 S) V8 t* B+ r8 C0 _6 H+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")& F5 q3 b2 z  A1 N
    " Y' m" V: e5 [5 Z

    / D: ~4 k3 X+ ~& |# G3、使用destination.csv数据文件绘制2016年的广州春运迁徙图,把动态页面保存好上传。
    ' A" ^4 H/ d5 E& jinstall.packages("REmap")2 o; A3 y3 [$ y5 u9 y. p
    library(REmap)
    " t9 {* R  {; l9 G# f3 wdestin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)  Y3 t( k0 k7 r+ ?+ U* @3 u
    head(destin)1 H# C/ m3 x3 c% W1 P) ^2 n
    names(destin)<-c("names","values")7 N5 f! E" a0 J  r+ g# B4 O6 @. `
    markLine_data <- data.frame(origin=rep("广东",10),
    ( K: d0 ]  z8 L+                             destination=destin[1:10,1],
    # q9 a: `: W& t# l+                             color=rep("#fff",10)3 ^! `  i2 S0 |5 Z5 ]4 _, B: ^
    + )5 e* F: Q# r+ M: _
    markPoint_data <- markLine_data[markLine_data!=""]
    , m( ]8 p' F- ]markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]$ P& b$ }9 o8 q0 D9 c! S
    # 要自己注册一个AK api key 不然无法get到经纬度  ?/ k4 j; M5 }0 N" N6 E! V' b
    options(remap.ak = "xxx")
    - t8 p: S" ^- uremapC(destin,1 O: @# y, u+ d5 ?2 Z/ O
    +        title="2016年2月6日 广州人口迁出图",
    # v! Y: W: o2 g1 \9 v7 H/ O+        subtitle="前10目标省份",
    + h6 }- o7 H% R1 ?+        theme=get_theme(                                         # s% s1 m7 O7 T7 ?) i. Z$ L0 t9 G
    +            #设置相应的背景色调
    9 b  {3 y6 M! d, e+            theme="Dark",$ @3 p2 d5 z: x# r2 d9 O
    +            lineColor = "#FFFFFF",  
    ' t' s7 ~- d& Q+            titleColor = "#fff",
    5 P5 ~: A- F. [' ]( I+ F3 ]* U5 @+            borderColor = "#FFFFFF",  #边界颜色
    1 s" ?% O( p3 e% L7 d% n+            regionColor = "#000000",  #区域颜色. F2 G; V2 f/ M; {; Y5 H. C3 P
    +            pointShow = F,
    0 n8 o) U( {0 h4 Y9 u& t6 U+            pointColor = "gold"/ V5 v* Q& B2 e% j' B
    +        ),0 h; v; ~, q. `2 B; N; S
    +        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案,对应每个地区不同的value
    & t! a; v3 Q" L2 N$ O- e: [: A6 @+        markLineData=markLine_data,   & ?& [7 F0 @  U% h7 G0 A; F  t8 T
    +        markLineTheme=markLineControl(
    9 w) c' q" L( ]/ ~3 ~( U; \+            color="white",   r6 d2 {, w6 I* N# A0 ]
    +            lineWidth=2, $ g& H  B$ t/ Y9 F+ [
    +            lineType="dashed"  
    6 x! n; T+ d- b" d+        ),
    2 Y: e5 {  n# F& u) H+        markPointData=markPoint_data1,
    , e! B& A/ u0 Z3 R: O" ]. s+        markPointTheme=markPointControl(
      X6 l, A5 M; o3 L3 t' U9 Q+            symbolSize=13,  
    & o' h/ v0 m. x6 M2 a( \) v6 g+            effect=T,           
    * i( ~3 _4 k# a/ g( u- E+            effectType="scale",   
    & P! ^/ M9 `; ^, `5 f: S  e/ ?+            color="white"
    & D$ m% M" `# w2 p4 w- Y# l+        )3 w3 _- B; \9 v( V
    + )9 w1 ]7 ^3 o% p9 b7 G

    ! A1 u. Q$ f! D' z6 A+ J
    ; H  l; F  E: C4 J( g4 @3 l+ a) A( 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, 2025-7-27 08:02 , Processed in 0.360244 second(s), 55 queries .

    回顶部