昆士兰道路事故地图上有闪亮的传单

5月2日,二千零一十九
通过

(本文首次发表于 R–Daniel Oehm梯度下降,并对 188bet appR博主

昆士兰政府收集了2001年1月1日的道路事故数据,并详细说明了事故的特点,包括:

  • 碰撞位置(纬度/经度坐标)
  • ABS统计区号(SA2-4,LGA偏僻)
  • 大气和道路条件(天气,照明,密封/未密封道路,限速区,等)
  • 事故严重程度(轻伤死亡)
  • 涉及的车辆类型(汽车,巴士,卡车自行车,等)
  • 事件描述

绘制这些数据突出了车祸发生频率更高的热点。尤其是潮湿条件下的危险区域,有问题的交叉口和昆士兰地区的死亡率高于其他地区。

我开发了一个闪亮的应用程序,利用宣传册来轻松浏览数据(只是为了好玩)。它的特点是:

  • 通过选择统计区域和其他功能来过滤数据的可折叠面板。
  • 一个显示严重程度细分的洞察小组,涉及的车辆,随着时间推移的事故和选定区域死亡率的贝叶斯估计。
  • 数据资源管理器选项卡。

这些数据是关于交通事故的,因此,在这种情况下,死亡率的估计值是车辆发生事故时的死亡率,而不是人口中的交通事故死亡率。这种统计数据的发布方式略有不同,但很有用。

查看应用程序的最佳方法是运行以下代码。首先,检查以确保通过运行安装了包

检查packages<-function(packages)if(all(packages%in%rownames(installed.packages()))true else cat(“在继续之前安装以下包\n”,软件包!(在%rownames(installed.packages())中的packages%),“\n”)packages_needed<-c(“tidyverse”,“闪亮”,“传单”“传单。附加资料”,“magrittr”,“HTMLoTo工具”,“HTMLWIDGET”,“展示文本”,“data.table”)检查包(需要包)

如果一切都好,现在运行下面的行,它将加载应用程序。

Rungithub(“Doehm/道路事故/”,“多姆”launch.browser=真)

这将直接在您的机器上启动它。或者您可以直接按照链接闪亮的应用程序。

对于这些数据,我们可以做很多简单的事情,随着时间的推移,我将添加到应用程序中。

布里斯班内部

该应用程序的一个子集集中在“布里斯班内部”的SA3区域,让您体验一下将要发生的事情。它显示了2013年1月1日以来该市发生的车祸。放大时,将鼠标悬停在标记上,以获得有关车祸的简短描述。

查看全屏地图在这里.

代码位

下面是上面这个例子的基本代码。但我强烈建议运行上面的代码来查看闪亮的应用程序。见github完整代码。

#昆士兰公路事故数据库(Tidyverse)库(Shining)库(Spealet)库(Spealet.Extras)库(Magrittr)库(HTMLtools)库(HTMLwidgets)库(Showtext)库(data.table)fonttry(font ou add_google(name=“Montsrat”,family=“mont”)showtext_auto(),true)加载数据或者如果它不起作用,从GitHub获取RData文件-请参阅上面的链接Load_data<-function()if(!file.exists(“locations.csv”))cat(“\n下载可能需要几分钟时间…”,url<-“http://www.tmr.qld.gov.au/~/media/aboutus/corpinfo/open%20data/crash/locations.csv”download.file(url,金宝搏网址destfile=“locations.csv”,方法=“libcurl”)事故原始<-读取csv(“locations.csv”)返回(事故原始)事故原始<-加载数据()%>%过滤器(碰撞严重性!=“仅财产损失”)布里斯班内部事故样本<-事故原始-%过滤器(loc abs统计区域_3=“布里斯班内部”,车祸年份>2013)%>%突变(死亡=死亡计数死亡>0)基本传单TM<-传单(事故)%>%添加供应品(提供商$stamen.toner,group=“black and white”)%>%addTiles(选项=providerTileOptions(nowrap=true),group=“colour”)%>%addmarkers(lng=~崩溃经度_gda94,lat=~碰撞纬度clusterOptions=markerclusterOptions(),label=~htmlescape(crash_dca_description))%>%addCircleMarkers(lng=~crash_longitude_gda94[事故$死亡],lat=~碰撞纬度_gda94[事故$死亡],color=“8亿”,笔画= false,填充不透明度=0.8,group=“fatalities”)%>%addheatmap(液化天然气=~碰撞经度_gda94,lat=~碰撞纬度半径=17,模糊=25,cellsize=25)%>%addlayersControl(覆盖组=C(“死亡”),基本组=C(“黑白”,“颜色”),选项=层控制(折叠=假)

岗位昆士兰道路事故地图上有闪亮的传单首次出现在丹尼尔·奥姆梯度下降.

留下评论作者,请关注他们博客上的链接和评论: R–Daniel Oehm梯度下降.

188bet appR博客提供 每日电子邮件更新金宝搏网址 R新闻与 教程关于以下主题: 数据科学大数据, r作业,可视化(可视化) GGPROTT2箱形图地图动画)程序设计(程序) 演播室斯威夫特乳胶SQL日食吉特哈多普刮网)统计 回归主成分分析时间序列交易还有更多…



如果你走这么远,为什么不 订阅更新 从站点?选择您的口味: 电子邮件推特1188bet app,或 脸谱网

注释已关闭。

搜索R-Blo188bet appggers


赞助商

千万不要错过更新!
订阅R-Bloggers188bet app接收
最新R帖子的电子邮件。
(您将不再看到此消息。)

单击此处关闭(此弹出窗口将不再出现)