---
title: 'Fun with Bob Ross and #TidyTuesday'
subtitle: '(HARUG! 2020.03.04)'
author: "Ed Harris"
date: "02/03/2020"
output: beamer_pdf
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```

## Tidy Tuesday

```{r fig.width=4, fig.height=2,echo=FALSE}
library(png)
library(grid)
img <- readPNG("pics/tt_logo.png")
 grid.raster(img)
```

\#TidyTuesday is an activity to build your **data handling** and **R graphics** skills. Each week (on Tuesday) a new dataset is posted.

The task is to tidy up the data and make a graph that tells a story.

The "#" is a Twitter hashtag.  People use this to Tweet their creative graphs.



## \#TidyTuesday links

Official site
https://github.com/rfordatascience/tidytuesday

Datasets and info (thanks Joe Roberts)
https://nsgrantham.shinyapps.io/tidytuesdayrocks/



## Bob Ross
```{r fig.width=4, fig.height=3,echo=FALSE}
library(png)
library(grid)
img <- readPNG("pics/Bob.png")
 grid.raster(img)
```
```{r fig.width=4, fig.height=3,echo=FALSE}
library(png)
library(grid)
img <- readPNG("pics/Bob2.png")
 grid.raster(img)
```

The Legend  
https://www.twitch.tv/bobross



## Live coding

```{r fig.width=8, fig.height=4,echo=FALSE}
library(png)
library(grid)
img <- readPNG("pics/ttbob.png")
 grid.raster(img)
```


https://www.youtube.com/watch?v=sD993H5FBIY

## Now we try
1) download Bob Ross data
2) explore the data
3) formute 1 (of many possible) question
4) make a first graph
5) feedback, critique and make it better > new graph
6) repeat 5 until "done"

## Task for next time
1) get any #TidyTuesday dataset
2) build a first graph (TM) and share it in slack
  https://join.slack.com/t/harper-adams-rug/shared_invite/enQtODYwNTkyMDMzODkyLTVhYzYzZDI1N2JjMGIzYzBkNmQ0MzJkMGI5NGRkNDRhNDkzMDUwYTY3YjU0MGE3MzRlMTc4MDUzMjgzMTA1ZmQ
  (get feedback, ask advice)
3) make the graph better
4) repeat #3 until you are proud of it :)