RMeetup

# RMeetup
## Mastering Corporate Design with R
### Thomas Lo Russo, Andrea Schnell 7. November 2017

---

# The state of corporate design @ STAT ZH
---
class: middle, left

#The state of CD @ STAT ZH

- Generic CD Guidelines for cantonal public administration cover the basics (e.g. fonts)
- No centralized publishing, several self-publishers
 - Infographics (Website & Twitter), Excel-Tables, statistik.info
 
- professionaly layouted publications are the exception

- How do we achieve visual uniformity of our products?

- 'Do it yourself' Corporate Design Toolbox

---
class: middle, left

# Corporate-Design Toolbox

- Colors for R-graphics zhpal

- Write data in formated Excel-Tables statXLSX

- Theme for ggplot2 graphics theme_stat

- Reports & pdf documents statRmd

---
class: inverse, center, middle

# ZH Color Palette
---
class: center, middle

Not the ideal color-palette for graphs.
![](index_files/figure-html/unnamed-chunk-1-1.png)

---
### How we created our own color-scheme

- **Color palette creation** with R
 - Mute the cd colors (color interpolation)
 - Adapt the color space (LAB instead of RGB)
 - Creation of a color-matrix (varying hue AND saturation)
 - Testing for Colorblind-friendliness
 
Resources:
 
**Interpolation** → grDevices::colorRampPalette()

**Colorblind-Testing** → Dichromat-package

---
class: center,middle

![](index_files/figure-html/unnamed-chunk-2-1.png)

---
class: center,middle

```r
p = ggplot(diamonds, aes(clarity, fill=cut)) + 
  geom_bar(position = "stack", width= 0.5)

p +theme_stat() +
  scale_fill_manual(values=zhpal$zhdiagonal)
```

![](index_files/figure-html/unnamed-chunk-3-1.png)
]

```r
library(dichromat)

p +theme_stat() +
  scale_fill_manual(values=dichromat(zhpal$zhdiagonal,type=c("tritan")))
```

![](index_files/figure-html/unnamed-chunk-4-1.png)
]

---
background-image: url(libs/darthvader.jpg)
background-position: 50% 50%
class: center, bottom, inverse

---
class: inverse, center, middle

# Producing already formated XLSX-tables with R

---
background-image: url(libs/turtles.gif)
background-position: 50% 10%
background-size: 80%
class: center, bottom, inverse

## Our users love Excel-tables
100+ Excel-tables on our website 
Data is delivered in Excel-tables to users on a daily-basis 
No strict guidelines on how XLSX files should look like

.footnote[[Gif: Hoguemr, reddit](https://www.reddit.com/r/funny/comments/1gzksk/work_was_a_little_slow_for_me_this_morning_again/)]

---
background-image: url(libs/excel.gif)
background-size: contain
class: center, bottom

---

#statXLSX

Creating formated excel-tables straight-out-of-R saves time and reduces the risk of errors. We recurred to the [***openxlsx-package***](https://cran.r-project.org/web/packages/openxlsx/openxlsx.pdf) package to define functions that write R-datasets in formated STAT ZH-Excel-tables.

***single worksheet***
statR::quickXLSX(data,"name of the table")

***multiple worksheets***
statR::statXLSX(data,"name of the table", worksheets)

***Advantages***

+End-to-end reproducibility

+quality assurance, less error prone

+visual coherence

---
background-image: url("libs/5.PNG")
background-size: contain
class: center, bottom

---
background-image: url("libs/6.PNG")
background-size: contain
class: center, bottom

---
class: inverse, center, bottom

# theme_stat()

## a theme for ggplot2 graphics

---
class:top, left

# Graphics with theme_stat()

```r
ggplot(mtcars, 
 aes(x = factor(cyl), 
 fill = factor(cyl)))+
geom_bar()
```
 
<img src="index_files/figure-html/unnamed-chunk-7-1.png" style="display: block; margin: auto;" />

]

```r
ggplot(mtcars, 
       aes(x = factor(cyl),
           fill = factor(cyl)))+
geom_bar()+
*theme_stat()
```

<img src="index_files/figure-html/unnamed-chunk-9-1.png" style="display: block; margin: auto;" />
]

---

# statRmd

## RMarkdown pdf templates

.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>]

---

# Our Analytical Publications

### PDF publications (mainly online)

.pull-left[
[ statistik.info](https://statistik.zh.ch/internet/justiz_inneres/statistik/de/themen/statistikinfo.html)
- custom made
- stand-alone 
- single-authored projects
- text-intensive

]

.pull-right[
Periodic reports
- highly automated
- parameterized
- «reproducible»
- mainly charts and tables

---

# Workflow

### Current state
- Analysis in various .r files
- Produce graphics with R and save as .png
- Include .png in Word template
- Publish Word as PDF

### Goal
Establish an analysis and publication process, that is
- traceable
- «reproducible»
- allows publication of high quality charts and maps
- in accordance to our corporate design

---

#  RMarkdown pdf output

```r
---
title: "Title"
author: "Name"
output:
*  pdf_document
---
```

]
--

```r
---
title: "Haupttitel"
author: "Vorname Nachname"
output:
* statRmd::stat_report
---
```
.center[<IMG SRC=libs/titel_statistikinfo.PNG width = "150" height = auto>]
]

---

# Build statRmd package

###  Why build a package?

- Code organization

- Consistent documentation

- Code distribution

- Templates

### Content

- RMarkdown Templates

- Some helper functions

---

# Load Template from statRmd

File > New File > R Markdown > From Template

![](libs/RMarkdown_Templates.PNG)

---
background-image: url("libs/sticker-01.png")
background-position: bottom right
background-size:30%

# Keep in touch

Slides  
https://statistikzh.github.io/RMeetup/

Website  
https://statistik.zh.ch

Twitter 
<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>