Tips from an R Journalist

class: center, middle, inverse, title-slide

# Tips from an R Journalist
### Sharon Machlis<br /> Twitter: <a href='http://twitter.com/sharon000'>   <span class="citation">@sharon000</span></a><br>
### Author, Practical R for Mass Communication and Journalism<br /><br />These slides: <a href="http://www.machlis.com/eRum2020">http://www.machlis.com/eRum2020</a>

---

```r
r_tips_and_ideas %>%
  group_by(
*   general_storytelling,
*          storytelling_with_R,
*          useful_tips_from_covering_R
    ) 
```

---

![](img/metrowest_daily_news.jpg)

---

![](img/needy_cat.gif)

---
class: center, middle

<span style="font-size:80px;">So what? <br /><br />
Who cares?
</span>
---

![](img/nyc.png)
<span style="font-size:8px;">_Source: [New York Times](https://www.nytimes.com/interactive/2020/04/27/upshot/coronavirus-deaths-new-york-city.html)_ </span>

---
## ggtext &nbsp; [https://wilkelab.org/ggtext/](https://wilkelab.org/ggtext/)

![](img/ggtext.PNG)

---

```r
Week <- seq.Date(from = as.Date("2020-02-09"), 
                 to = as.Date("2020-04-26"), by = 7)
Value <- c(110, -58, 46,- 50, -75, 120, 
           72, 120, 125, 2560, 3500, 2805)
mydf <- data.frame(Week, Value)
ggplot(mydf, aes(x = Week, y = Value)) +
  geom_col()
```

---

```r
mydf$Color <- ifelse(mydf$Value > 0, "more", "less") 
ggplot(mydf, aes(x = Week, y = Value, fill = Color)) +
  geom_col() +
  scale_fill_manual(values = c("grey", "firebrick4")) +
  theme_classic() +
  theme(legend.position = "none") +
  xlab("") +
  ylab("")
```

---

```r
library(ggtext)
ggplot(mydf, aes(x = Week, y = Value, fill = Color)) +
  geom_col() +
  scale_fill_manual(values = c("grey", "firebrick4")) +
  theme_classic() +
  theme(legend.position = "none", plot.title = element_markdown()) + 
  xlab("") + ylab("") +
  labs(title = "<span styl ='font-size:24pt;'>Sample data <span style='color:firebrick4;'>above</span> and 
<b><span style = 'color:darkgrey;'>below</span></b> normal</span>")
```

---
<img src="erum2020_presentation_files/figure-html/unnamed-chunk-5-1.png" width="864" />

---

---
## bbplot package &nbsp; [https://github.com/bbc/bbplot](https://github.com/bbc/bbplot)

![](img/bbplot.PNG)

---

## BBC Visual and Data Journalism Cookbook for R Graphics
[https://bbc.github.io/rcookbook/](https://bbc.github.io/rcookbook/)

![](img/bbc_annotation.PNG)

---

```r
*windowsFonts(Helvetica = "TT Arial")
library(bbplot)
ggplot(mydf, aes(x = Week, y = Value, fill = Color)) +
  geom_col() +
  bbplot::bbc_style() +
  scale_fill_manual(values = c("grey", "firebrick4")) +
  theme(legend.position = "none", plot.title = element_markdown()) + 
  xlab("") +
  ylab("") +
  labs(title = "Sample data <span style = 'color:firebrick4;'>
               above</span> and 
               <b><span style = 'color:darkgrey;'>below</span></b>
               normal") +
  geom_label(aes(x = as.Date("2020-03-08"), y = 3030, 
                 label = "Many more those last few weeks"), 
             hjust = 0, vjust = 0.5, 
             colour = "#555555", 
             fill = "white", 
             label.size = NA, 
             fontface = "italic", size = 5) +
  geom_curve(aes(x = as.Date("2020-04-03"), y = 3000, 
                 xend = as.Date("2020-04-15"), yend = 3000), 
             colour = "#555555", 
             size=0.5, curvature = -0.2,
             arrow = arrow(length = unit(0.03, "npc")))
```

---

```r
windowsFonts(Helvetica = "TT Arial") 
library(bbplot)
ggplot(mydf, aes(x = Week, y = Value, fill = Color)) +
  geom_col() +
* bbplot::bbc_style() +
  scale_fill_manual(values = c("grey", "firebrick4")) +
  theme(legend.position = "none", plot.title = element_markdown()) + 
  xlab("") +
  ylab("") +
  labs(title = "Sample data <span style = 'color:firebrick4;'>
               above</span> and 
               <b><span style = 'color:darkgrey;'>below</span></b>
               normal") +
  geom_label(aes(x = as.Date("2020-03-08"), y = 3030, 
                 label = "Many more those last few weeks"), 
             hjust = 0, vjust = 0.5, 
             colour = "#555555", 
             fill = "white", 
             label.size = NA, 
             fontface = "italic", size = 5) +
  geom_curve(aes(x = as.Date("2020-04-03"), y = 3000, 
                 xend = as.Date("2020-04-15"), yend = 3000), 
             colour = "#555555", 
             size=0.5, curvature = -0.2,
             arrow = arrow(length = unit(0.03, "npc")))
```

---

---

![](img/snippets.PNG)

---

`usethis::edit_rstudio_snippets()`

![](img/snippets2.PNG)

---
Video:

---

## [https://bit.ly/RStudio-snippets](https://bit.ly/RStudio-snippets)

---

# Document your code!
--

## roxygen can help
(even if you're not creating a package)
![](img/roxygen.PNG)

---

---
### RStudio function shortcut

---
### R Markdown
Mix text narrative, code, and visualizations <br />
Output to HTML, PDF, Word, and other formats

RStudio tutorial: [https://rmarkdown.rstudio.com](https://rmarkdown.rstudio.com/) <br />
RStudio Conference 2020 workshop materials: <br /> [https://github.com/rstudio-conf-2020/rmarkdown-dashboard](https://github.com/rstudio-conf-2020/rmarkdown-dashboard)

---
[https://rmarkdown.rstudio.com/lesson-6.html](https://rmarkdown.rstudio.com/lesson-6.html)

![](img/parameters2.png)

---
## Make your own table of packages and functions

Useful R packages: [bit.ly/Rpackages](https://bit.ly/Rpackages)

How do I? [bit.ly/R_HowDoI](https://bit.ly/R_HowDoI)

---
# Interactive tables from dataframes

DT [https://rstudio.github.io/DT](https://rstudio.github.io/DT/) <br />
reactable [https://glin.github.io/reactable/](https://glin.github.io/reactable/)

![](img/reactable.PNG)

---

```r
DT::datatable(mydf, filter = 'top')
```

<div id="htmlwidget-38881e1fed6231562744" style="width:100%;height:auto;" class="datatables html-widget"></div>
<script type="application/json" data-for="htmlwidget-38881e1fed6231562744">{"x":{"filter":"top","filterHTML":"<tr>\n  <td><\/td>\n  <td data-type=\"date\" style=\"vertical-align: top;\">\n    <div class=\"form-group has-feedback\" style=\"margin-bottom: auto;\">\n      <input type=\"search\" placeholder=\"All\" class=\"form-control\" style=\"width: 100%;\"/>\n      <span class=\"glyphicon glyphicon-remove-circle form-control-feedback\"><\/span>\n    <\/div>\n    <div style=\"display: none; position: absolute; width: 200px;\">\n      <div data-min=\"1581206400000\" data-max=\"1587859200000\"><\/div>\n      <span style=\"float: left;\"><\/span>\n      <span style=\"float: right;\"><\/span>\n    <\/div>\n  <\/td>\n  <td data-type=\"number\" style=\"vertical-align: top;\">\n    <div class=\"form-group has-feedback\" style=\"margin-bottom: auto;\">\n      <input type=\"search\" placeholder=\"All\" class=\"form-control\" style=\"width: 100%;\"/>\n      <span class=\"glyphicon glyphicon-remove-circle form-control-feedback\"><\/span>\n    <\/div>\n    <div style=\"display: none; position: absolute; width: 200px;\">\n      <div data-min=\"-75\" data-max=\"3500\"><\/div>\n      <span style=\"float: left;\"><\/span>\n      <span style=\"float: right;\"><\/span>\n    <\/div>\n  <\/td>\n  <td data-type=\"character\" style=\"vertical-align: top;\">\n    <div class=\"form-group has-feedback\" style=\"margin-bottom: auto;\">\n      <input type=\"search\" placeholder=\"All\" class=\"form-control\" style=\"width: 100%;\"/>\n      <span class=\"glyphicon glyphicon-remove-circle form-control-feedback\"><\/span>\n    <\/div>\n  <\/td>\n<\/tr>","data":[["1","2","3","4","5","6","7","8","9","10","11","12"],["2020-02-09","2020-02-16","2020-02-23","2020-03-01","2020-03-08","2020-03-15","2020-03-22","2020-03-29","2020-04-05","2020-04-12","2020-04-19","2020-04-26"],[110,-58,46,-50,-75,120,72,120,125,2560,3500,2805],["more","less","more","less","less","more","more","more","more","more","more","more"]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>Week<\/th>\n      <th>Value<\/th>\n      <th>Color<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":2},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false,"orderCellsTop":true}},"evals":[],"jsHooks":[]}</script>

---

# Dataviz Resources
## From Data to Viz [https://www.data-to-viz.com](https://www.data-to-viz.com/)

![](img/data2viz.PNG)

---

![](img/data2viz2.PNG)

---

## R Graphs Gallery [https://www.r-graph-gallery.com](https://www.r-graph-gallery.com)

![](img/ragraphgallery3.PNG)

---

## R Graphs Gallery [https://www.r-graph-gallery.com](https://www.r-graph-gallery.com)

![](img/rgraphgallery4.PNG)

---

# Dataviz Resources
## The Glamour of Graphics, William Chase
Video: [https://rstudio.com/resources/rstudioconf-2020/the-glamour-of-graphics](https://rstudio.com/resources/rstudioconf-2020/the-glamour-of-graphics)
Slides: https://www.williamrchase.com/slides/assets/player/KeynoteDHTMLPlayer.html#0

![](img/glamour.PNG)

---

![](img/willchase.PNG)
<br /><br /> _Slide by Will Chase_

---

### [https://cedricscherer.netlify.app/2019/05/17/the-evolution-of-a-ggplot-ep.-1/](https://cedricscherer.netlify.app/2019/05/17/the-evolution-of-a-ggplot-ep.-1/)

![](img/evol-ggplot-1.gif)

---
# Finding Cool New R Things

Twitter #rstats hashtag

rtweet package by Michael Kearney: [https://rtweet.info/](https://rtweet.info/)

My app: [http://apps.machlis.com/shiny/rstats/](http://apps.machlis.com/shiny/rstats/)

---

```r
library(rtweet) 
tweets <- search_tweets("#erum2020", include_rts = FALSE)
```

---

```r
w_urls <- tweets[!is.na(tweets$urls_t.co),]
```
---

```r
library(dplyr)
w_urls <- w_urls %>%
          select(created_at, screen_name, text, url = urls_t.co,
            favorites = favorite_count, RTs = retweet_count) %>%
            arrange(desc(favorites))
```

![](img/tweets.PNG)

---

### [bit.ly/tweet_R](https://bit.ly/tweet_R)

---

Do More With R: [https://bit.ly/domorewithR](https://bit.ly/domorewithR)

Practical R for Mass Communication and Journalism: [http://machlis.com/R4Journalists/](http://machlis.com/R4Journalists/)

These slides: [http://www.machlis.com/eRum2020](http://www.machlis.com/eRum2020)