rstudio::conf

class: center, middle, inverse, title-slide

# rstudio::conf
## Stories from San Francisco 🌉
### (<a href="https://twitter.com/trianglegirl">@RLadiesLancs</a>)
### 2020-02-05

---

layout: true

<div class = "rladies-header">
<span class="social"><table><tr><td><img src="images/twitter.gif"/></td><td> @RLadiesLancs</td></tr></table></span>
</div>

---

# RStudio Conference 2020

* In San Francisco
* ~2400 attendees
* Broad disciplines
* 2 days workshops (materials online)
* 2 days talks (videos online soon)
* Lots of R-Ladies!

---

# Workshops

* All material [available online](https://github.com/rstudio-conf-2020)

* A Practical Introduction to Data Visualization with ggplot2 Workshop
* Applied Machine Learning Workshop
* Big Data with R Workshop
* Building Tidy Tools Workshop
* Deep Learning with Keras and TensorFlow in R Workshop
* Designing the Data Science Classroom Workshop
* Introduction to Data Science in the Tidyverse Workshop
* Introduction to Machine Learning with the Tidyverse Workshop
* JavaScript for Shiny Users Workshop
* Modern Geospatial Data Analysis with R Workshop
* My Organization's First R Package Workshop
* R for Excel Users Workshop
* R Markdown and Interactive Dashboards Workshop
* RStudio Instructor Training Workshop (1-day)
* RStudio Professional Products Administration Workshop
* Shiny From Start To Finish Workshop
* Text Mining with Tidy Data Principles Workshop
* Tidy Time Series and Forecasting in R Workshop
* What They Forgot to Teach You about R Workshop

---

# Tidy Time Series

.pull-left[
* Rob Hyndman 
* Manipulating time series data
* Forecasting
* All in the tidyverse framework
* Free book [FPP3](https://otexts.com/fpp3/)

## R packages

* tsibble
* feasts
* fable

]
.pull-right[
![](images/rob.png)
]

---

# What the flip is a tsibble?

* A tsibble allows storage and manipulation of
multiple time series in R.
* It contains:
    * An index: time information about the observation
    * Measured variable(s): numbers of interest
    * Key variable(s): optional unique identifiers for each
series
* It works with tidyverse functions.

---

# Example

<div id="htmlwidget-11c52ed52e2b900520af" style="width:100%;height:auto;" class="datatables html-widget"></div>
<script type="application/json" data-for="htmlwidget-11c52ed52e2b900520af">{"x":{"filter":"none","data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20"],["1998-01-01","1998-04-01","1998-07-01","1998-10-01","1999-01-01","1999-04-01","1999-07-01","1999-10-01","2000-01-01","2000-04-01","2000-07-01","2000-10-01","2001-01-01","2001-04-01","2001-07-01","2001-10-01","2002-01-01","2002-04-01","2002-07-01","2002-10-01"],["Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide","Adelaide"],["South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia","South Australia"],["Business","Business","Business","Business","Business","Business","Business","Business","Business","Business","Business","Business","Business","Business","Business","Business","Business","Business","Business","Business"],[135.0776903,109.987316,166.0346866,127.1604643,137.4485333,199.9125861,169.3550898,134.3579372,154.034398,168.7763637,223.0651159,241.2206893,132.5000378,178.3980945,195.9963258,101.1746931,237.8327914,150.7266327,167.7128424,140.3395127]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>Quarter<\/th>\n      <th>Region<\/th>\n      <th>State<\/th>\n      <th>Purpose<\/th>\n      <th>Trips<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":5},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script>
---

# Quarterly Australian Beer Production

```r
beer <- aus_production %>%
select(Quarter, Beer) %>%
filter(year(Quarter) >= 1992)
beer %>% autoplot(Beer)
```

---

# Quarterly Australian Beer Production

```r
beer %>% gg_season(Beer, labels = "right")
```

---

# Multiple seasonal periods

```r
vic_elec %>% gg_season(Demand)
```

---

# Multiple seasonal periods

```r
vic_elec %>% gg_season(Demand, period = "week")
```

---

# Multiple seasonal periods

```r
vic_elec %>% gg_season(Demand, period = "day")
```

<img src="rstudio_conf_files/figure-html/unnamed-chunk-8-1.png" height="400px" />
---

# Quarterly Australian Beer Production

```r
beer %>% gg_subseries(Beer)
```

---

# Australian holidays

```r
holidays <- tourism %>%
filter(Purpose == "Holiday") %>%
group_by(State) %>%
summarise(Trips = sum(Trips))

holidays %>% autoplot(Trips) +
ylab("thousands of trips") + xlab("Year") +
ggtitle("Australian domestic holiday nights")
```

<img src="rstudio_conf_files/figure-html/unnamed-chunk-10-1.png" height="400px" />
---

# Seasonal Plots

```r
holidays %>% gg_season(Trips) +
ylab("thousands of trips") +
ggtitle("Australian domestic holiday nights")
```

---
# Seasonal subseries plots

```r
holidays %>%
gg_subseries(Trips) + ylab("thousands of trips") +
ggtitle("Australian domestic holiday nights")
```

---

# Calendar Plots

---

# RStudio becomes a PBC

* Mission: Open source software for statistical computing
* Started developing in 2008
* Corporations are by-default not trustworthy 
* Community needs to trust that our mission open-source software

## So far...

* 250 open source projects
* 36 full-time engineers dedicated to open source software (54%)
* Hundreds of millions of downloads of open source products/packages

---

# Styling Shiny apps with Sass and Bootstrap

* Joe Cheng
* Shiny apps can look a bit samey
* Use SASS to style
* Fancy interactive helper function

---

# Glamour of Graphics: Will Chase

---

# Glamour of Graphics: skip the labels

<blockquote class="twitter-tweet"><p lang="en" dir="ltr">I so agree with this statement from <a href="https://twitter.com/W_R_Chase?ref_src=twsrc%5Etfw">@W_R_Chase</a>: you remove the need for axis labels with good titles. Applies to simpler plots, but I think label all axes all the time is too strict an advice. <a href="https://twitter.com/hashtag/rstudioconf?src=hash&amp;ref_src=twsrc%5Etfw">#rstudioconf</a> <a href="https://t.co/3LkJlLn00W">pic.twitter.com/3LkJlLn00W</a></p>&mdash; Mine CetinkayaRundel (@minebocek) <a href="https://twitter.com/minebocek/status/1222952045327446016?ref_src=twsrc%5Etfw">January 30, 2020</a></blockquote> <script async src="https://platform.twitter.com/widgets.js" charset="utf-8"></script>

---

# Glamour of Graphics: skip the legend

<blockquote class="twitter-tweet"><p lang="en" dir="ltr">Awesome tip from <a href="https://twitter.com/W_R_Chase?ref_src=twsrc%5Etfw">@W_R_Chase</a> on legends - see if you can skip them entirely by using color in your title <a href="https://twitter.com/hashtag/rstudioconf?src=hash&amp;ref_src=twsrc%5Etfw">#rstudioconf</a> <a href="https://t.co/qg5OG1dPKt">pic.twitter.com/qg5OG1dPKt</a></p>&mdash; Emily Robinson (@robinson_es) <a href="https://twitter.com/robinson_es/status/1222953128313544705?ref_src=twsrc%5Etfw">January 30, 2020</a></blockquote> <script async src="https://platform.twitter.com/widgets.js" charset="utf-8"></script>

---
# Teacup giraffes

* Gentle introduction to statistics with R
* Nice story telling
* Really cute graphics
* [Website](https://tinystats.github.io/teacups-giraffes-and-statistics/01_introToR.html)

---
# Don’t Repeat Yourself, Talk To Yourself!

* Repeated Reporting In The R Universe
* [Sharla Gelfand](https://twitter.com/sharlagelfand)
* [Slides](https://sharstudioconf.netlify.com/#1)
* Write "chatty functions" using the **usethis** package

```r
library("usethis")
analysis_year <- 2019
ui_info("Hi")
```

```
## ℹ Hi
```

```r
ui_todo("Querying demographics data for {analysis_year}...")
```

```
## ● Querying demographics data for 2019...
```

```r
ui_done("Analysis complete")
```

```
## ✔ Analysis complete
```

---

# Object of type closure is not subsettable

* [Jenny Bryan](https://twitter.com/jennybryan?lang=en)
* [Slides](https://speakerdeck.com/jennybc/object-of-type-closure-is-not-subsettable)

* Reset
* Reprex
* Debug
* Deter
<img src="images/repex.jpg" width="100px" style="display: block; margin: auto;" />

---

# Sewing a tidy dress

* [GitHub](https://github.com/ameliamn/hexfabric)
* [Blog Post](https://www.amelia.mn/blog/misc/2019/08/17/Tidy-Dress.html)

---

# Live podcast

* [Live episode](http://nssdeviations.com/100-live-from-rstudio-conf-2020)