class: center, middle, inverse, title-slide # Reporting mit R ## TechTalk Aargau
25. Juni 2019 ### Andrea Schnell
Statistisches Amt Kanton Zürich --- # Über uns ### Statistisches Amt Kanton Zürich **Mitarbeitende** - 15' im Bereich der Öffentlichen Statistik - 15' in den Bereichen Data Engineering, Wahlbüro, Befragungen - *insgesamt ~ 15 R Nutzende* **Produkte** - Analytische Publikationen - Datenprodukte (Excel Tabellen, Visualisierungen, Jahrbuch) - *Reports* **Infrastruktur** - SQL Datenbank (Oracle) - Statistikprogramm: R, RStudio - Gitea (Versionierung) --- class: left, top # Reporting mit R <br>
### Tools - RStudio::RMarkdown - Design Toolbox
### Reporting-Produkte - Cluster-Monitoring (jährlich) - Quartalsberichte - Applikationen - [...] --- class: inverse, middle, center # Tools <br>
--- # RMarkdown
### Idee .left-column[<IMG SRC=libs/rmarkdown_wf.PNG width = "200" height = auto>] -- .right-column[ - Gesamte Analyse inkl. Resultaten an einem Ort - Code, Grafiken, Kommentare - Sprachen: R, SQL, Python, ... - Outputformate: Word, PDF, HTML - Layoutvorgaben in Templates (LaTeX, CSS) ] <br> -- .pull-right[ > - nachvollziehbar > - reproduzierbar > - vereinfacht Zusammenarbeit ] --- class: left <!--
--> # Design Toolbox ### Ziel - Ansprechendes «Corporate» Design per Default - Werkzeugkasten, der Einhaltung vereinfacht. ### Instrumente - Für Datenvisualisierung geeignete Farbpalette <font color=#009ee0>zhpal</font> - Export formattierter Excel Tabellen <font color=#009ee0>statXLSX</font> - Grafik-Layout <font color=#009ee0>theme_stat</font> - Vorlagen für PDF-Berichte und Reports <font color=#009ee0>statRmd</font> --- # statR::zhpal .center[ ```r display.statcol.all() ``` ![](index_files/figure-html/unnamed-chunk-1-1.png)<!-- --> ] --- background-image: url(libs/excel.gif) background-size: 80% 80% background-position: center bottom # Excel Tabellen: <font color=#009ee0>vorher</font> --- background-image: url("libs/6.PNG") background-size: 80% 80% background-position: center bottom # Excel Tabellen: <font color=#009ee0>nachher</font> ```r statR::quickXLSX(wohnungen_gws, "Wohnungsbestandseit2010GWW.xlsx") ``` <!-- --- --> <!-- ### Vorteile --> <!-- - Reproduzierbarkeit --> <!-- - Qualitätssicherung, weniger fehleranfällig (kein copy/paste) --> <!-- - Einheitliches Aussehen --> <!-- - Mitlieferung von Metadaten --> <!-- --- --> <!-- # statR::theme_stat() --> <!-- ## <br>Grafiklayout für ggplot2 --> <!-- <br> --> <!-- .right[ --> <!-- <IMG SRC="http://hexb.in/hexagons/ggplot2.png" width = "150" height = auto>] --> --- class:top, left # Grafiklayout <font color=#009ee0>theme_stat()</font> .pull-left[ ```r ggplot(mtcars, aes(x = factor(cyl), fill = factor(cyl)))+ geom_bar() ``` <br> <img src="index_files/figure-html/unnamed-chunk-5-1.png" style="display: block; margin: auto;" /> ] -- .pull-right[ ```r ggplot(mtcars, aes(x = factor(cyl), fill = factor(cyl)))+ geom_bar()+ *theme_stat() ``` <img src="index_files/figure-html/unnamed-chunk-7-1.png" style="display: block; margin: auto;" /> ] <!-- --- --> <!-- # statRmd --> <!-- ## <br>RMarkdown pdf Vorlagen --> <!-- <br> --> <!-- .right[ --> <!-- <IMG SRC="http://hexb.in/hexagons/rstudio.png" width = "150" height = auto><IMG SRC="http://hexb.in/hexagons/rmarkdown.png" width = "150" height = auto><IMG SRC="http://hexb.in/hexagons/knitr.png" width = "150" height = auto>] --> --- # PDF Vorlagen .pull-left[ ### Default .center[<IMG SRC=libs/RMarkdown_default.PNG width = "300" height = auto>] ] -- .pull-right[ ###statRmd::stat_report .center[<IMG SRC=libs/titel_statistikinfo.PNG width = "300" height = auto>] ] <!-- # Analytische Publikationen --> <!-- .pull-left[ --> <!-- [<b> statistik.info</b>](https://statistik.zh.ch/internet/justiz_inneres/statistik/de/themen/statistikinfo.html) --> <!-- - Massgeschneidert --> <!-- - Eigenständig --> <!-- - Eine Autorin/ein Autor --> <!-- - Textintensiv --> <!-- .center[<IMG SRC=libs/info.gif width = "190" height = auto>] --> <!-- .pull-right[ --> <!-- <font color=#009ee0><b>Periodische Reports</b></font> --> <!-- - Stark automatisiert --> <!-- - Parametrisiert --> <!-- - Reproduzierbar --> <!-- - Dynamischer Text, Tabellen, Grafiken --> <!-- .center[<IMG SRC=libs/report.gif width = "190" height = auto>] --> --- class: left, top # Wie? Packages! <font color=#009ee0 font-weight='bold' size=24pt>statR, statRmd</font> ### Wieso als Package? - Code Organisation - Code teilen/ für andere nutzbar machen - Konsistente Dokumentation - Vorlagen - Weiterentwicklung ### Wo? Öffentlich zugänglich. https://github.com/statistikZH/statR https://github.com/statistikZH/statRmd --- class: inverse, middle, center # Produkte <br>
--- # Clustermonitoring Jährliches Monitoring von ausgewählten Branchenaggregaten (Clustern) im Auftrag der kantonalen Standortförderung, zweisprachig (de/en). -- .center[<IMG SRC=libs/workflow_clusterbooklet.PNG width = "600" height = auto>] -- .center[<IMG SRC=libs/produkte_clusterbericht.PNG width = "600" height = auto>] -- [Cluster Daten Booklet 2019](https://awa.zh.ch/internet/volkswirtschaftsdirektion/awa/de/standortfoerderung/cluster/_jcr_content/contentPar/downloadlist/downloaditems/751_1538400167235.spooler.download.1550243236980.pdf/clusterdaten_d_201902.pdf) --- # Quartalsberichte Quartalsweise Aktualisierung unserer Daten im Bereich Immobilien und Raum. ### Idee - Quartalsweise Publikation neuer Daten - Nebenbprodukt der Plausibilisierung - Information der Kunden über neue Datenpublikation [Report Handänderungsstatistik](https://statistik.zh.ch/dam/justiz_innern/statistik/Themen/Immobilien_und_Raum/immomarkt_qbericht/Quartalsreport_2019_01.pdf.spooler.download.1561020380601.pdf/Quartalsreport_2019_01.pdf) [Report Wohnbautätigkeit](https://statistik.zh.ch/internet/justiz_inneres/statistik/de/daten/daten_immobilien_raum/bauwesen_wohnungswesen/wohnbautaetigkeit/_jcr_content/contentPar/downloadlist/downloaditems/quartalsreport.spooler.download.1552316797059.pdf/Quartalsreport_Wohnbau_2018_Q4.pdf) --- # *Making Of* ### RMarkdown Dokument *YAML* Header ```r --- title: "Wohnbautätigkeit" params: jahr: 2018 quarter: 4 directory: "2019_Q1" path: "2019_Q1" documentclass: article output: pdf_document: latex_engine: xelatex dev: cairo_pdf header-includes: \input{header.tex} --- ``` --- ### Rendering ```r rmarkdown::render("Quartalsbericht_Wohnbautaetigkeit.Rmd", output_file = paste0(out.path, "/Quartalsreport_Wohnbau_", subdir, ".pdf"), params = list(jahr = jahrQ_orig, quarter = quartal_orig, directory = subdir, path = out.path), encoding = "UTF-8") ``` --- # Shiny Applikationen ### OpenZH Dashboard Webstatistik der monatlichen Zugriffe auf unsere Datensätze auf opendata.swiss. [OpenZH Dashboard](https://openzh.shinyapps.io/openzh_dashboard/) <br> ### Zürcher ImmoApp Die App ermöglicht statistische Auswertungen von Immobilientransaktionen auf Basis der Handänderungsdaten. *Entwickelt zur internen Verwendung bei Kundenanfragen, hier deshalb nur **Fake Daten***. [ZH ImmoApp](https://maxzh.shinyapps.io/zhimmoapp/) --- <!--
--> # Vielen Dank! <br> Andrea Schnell [andrea.schnell@statistik.ji.zh.ch](mailto:andrea.schnell@statistik.ji.zh.ch)
<a href="https://twitter.com/statistik_zh?ref_src=twsrc%5Etfw" class="twitter-follow-button" data-show-count="false">@schnllr</a><script async src="https://platform.twitter.com/widgets.js" charset="utf-8"></script>
https://schnllr.github.io/RReporting <!-- <br> --> <!-- Statistical Office Canton of Zurich --> <!--
<a href="https://twitter.com/statistik_zh?ref_src=twsrc%5Etfw" class="twitter-follow-button" data-show-count="false">@statistik_zh</a><script async src="https://platform.twitter.com/widgets.js" charset="utf-8"></script> --> .right[<IMG SRC="libs/sticker-01.png" width = auto height = "170">] <!-- <br> --> <!-- <small>Slides created with the R package [**xaringan**](https://github.com/yihui/xaringan).</small> -->