Skip to content

Commit

Permalink
tweaks to welcome and warm-up slides
Browse files Browse the repository at this point in the history
  • Loading branch information
@brendanhcullen
brendanhcullen committed Aug 10, 2024
1 parent c453317 commit 9ddc1f7
Show file tree
Hide file tree
Showing 4 changed files with 231 additions and 106 deletions.
29 changes: 25 additions & 4 deletions slides/warm-up.Rmd
View file
Original file line number Diff line number Diff line change
Expand Up @@ -149,7 +149,7 @@ knitr::include_graphics("images/welcome/pink-square.png")
You'll use the sticky system to signal that you're done or your need help

---
class: center, middle, inverse
class: inverse
background-position: center
background-size: cover

Expand All @@ -159,9 +159,17 @@ library(tidyverse)
seattle_pets <- read_csv("data/warm-up/seattle_pets.csv")
```

# Seattle pets
# Seattle Pet Licenses data

Look for `data/seattle_pets.csv` in your Files pane

Source: https://data.seattle.gov/Community/Seattle-Pet-Licenses/jguv-t9rb/about_data

???

This data was retrieved from Seattle's Open Data Portal. It was last updated in July 2024.

# `r emo::ji("dog")` `r emo::ji("cat")`
It contains a list of current Seattle pet licenses, including animal type (species), pet's name, breed and the owner's ZIP code.

---
class: your-turn
Expand Down Expand Up @@ -231,8 +239,21 @@ seattle_pets |>
```{r echo = FALSE, message = FALSE}
seattle_pets |> count(species)
```

]


---
# Solution 2

Because I was curious... what does one name a pet pig?

```{r}
seattle_pets |>
filter(species == "Pig") |>
pull(animal_name)
```

---
class: your-turn

Expand Down Expand Up @@ -419,7 +440,7 @@ seattle_pets |>
# `r emo::ji("thinking_face")` Exploring `seattle_pets` further...

.pull-left[
What if we wanted visualize trends in number of new pets by month?
What if we wanted visualize trends in number of new pet licences by month?

We would need to handle **dates**.
]
Expand Down
70 changes: 48 additions & 22 deletions slides/warm-up.html
View file
Original file line number Diff line number Diff line change
Expand Up @@ -99,15 +99,23 @@
You'll use the sticky system to signal that you're done or your need help

---
class: center, middle, inverse
class: inverse
background-position: center
background-size: cover



# Seattle pets
# Seattle Pet Licenses data

Look for `data/seattle_pets.csv` in your Files pane

Source: https://data.seattle.gov/Community/Seattle-Pet-Licenses/jguv-t9rb/about_data

???

This data was retrieved from Seattle's Open Data Portal. It was last updated in July 2024.

# 🐶 🐱
It contains a list of current Seattle pet licenses, including animal type (species), pet's name, breed and the owner's ZIP code.

---
class: your-turn
Expand All @@ -124,13 +132,13 @@
```
## Rows: 43,683
## Columns: 7
## $ license_issue_date &lt;chr&gt; "December 18 2015", "June 14 2016", "August 04 2016", "February 13 2019", "August 10 201…
## $ license_number &lt;chr&gt; "S107948", "S116503", "S119301", "962273", "S133113", "8002549", "S112835", "S131986", "…
## $ animal_name &lt;chr&gt; "Zen", "Misty", "Lyra", "Veronica", "Spider", "Maxx", "Diamond", "Nacho", "Pixel", "C.C.…
## $ species &lt;chr&gt; "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat…
## $ primary_breed &lt;chr&gt; "Domestic Longhair", "Siberian", "Mix", "Domestic Longhair", "LaPerm", "American Shortha…
## $ secondary_breed &lt;chr&gt; "Mix", NA, NA, NA, NA, NA, "Mix", "Mix", "Mix", "Mix", "American Shorthair", "Mix", NA, …
## $ zip_code &lt;dbl&gt; 98117, 98117, 98121, 98107, 98115, 98125, 98103, 98126, 98112, 98117, 98126, 98199, 9811…
## $ license_issue_date &lt;chr&gt; "December 18 2015", "June 14 2016", "August 04 2016", "February 13 2019", "August 1…
## $ license_number &lt;chr&gt; "S107948", "S116503", "S119301", "962273", "S133113", "8002549", "S112835", "S13198…
## $ animal_name &lt;chr&gt; "Zen", "Misty", "Lyra", "Veronica", "Spider", "Maxx", "Diamond", "Nacho", "Pixel", …
## $ species &lt;chr&gt; "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat",…
## $ primary_breed &lt;chr&gt; "Domestic Longhair", "Siberian", "Mix", "Domestic Longhair", "LaPerm", "American Sh…
## $ secondary_breed &lt;chr&gt; "Mix", NA, NA, NA, NA, NA, "Mix", "Mix", "Mix", "Mix", "American Shorthair", "Mix",…
## $ zip_code &lt;dbl&gt; 98117, 98117, 98121, 98107, 98115, 98125, 98103, 98126, 98112, 98117, 98126, 98199,…
```


Expand All @@ -151,13 +159,13 @@
```
## Rows: 43,683
## Columns: 7
## $ license_issue_date &lt;chr&gt; "December 18 2015", "June 14 2016", "August 04 2016", "February 13 2019", "August 10 201…
## $ license_number &lt;chr&gt; "S107948", "S116503", "S119301", "962273", "S133113", "8002549", "S112835", "S131986", "…
## $ animal_name &lt;chr&gt; "Zen", "Misty", "Lyra", "Veronica", "Spider", "Maxx", "Diamond", "Nacho", "Pixel", "C.C.…
## $ species &lt;chr&gt; "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat…
## $ primary_breed &lt;chr&gt; "Domestic Longhair", "Siberian", "Mix", "Domestic Longhair", "LaPerm", "American Shortha…
## $ secondary_breed &lt;chr&gt; "Mix", NA, NA, NA, NA, NA, "Mix", "Mix", "Mix", "Mix", "American Shorthair", "Mix", NA, …
## $ zip_code &lt;dbl&gt; 98117, 98117, 98121, 98107, 98115, 98125, 98103, 98126, 98112, 98117, 98126, 98199, 9811…
## $ license_issue_date &lt;chr&gt; "December 18 2015", "June 14 2016", "August 04 2016", "February 13 2019", "August 1…
## $ license_number &lt;chr&gt; "S107948", "S116503", "S119301", "962273", "S133113", "8002549", "S112835", "S13198…
## $ animal_name &lt;chr&gt; "Zen", "Misty", "Lyra", "Veronica", "Spider", "Maxx", "Diamond", "Nacho", "Pixel", …
## $ species &lt;chr&gt; "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat",…
## $ primary_breed &lt;chr&gt; "Domestic Longhair", "Siberian", "Mix", "Domestic Longhair", "LaPerm", "American Sh…
## $ secondary_breed &lt;chr&gt; "Mix", NA, NA, NA, NA, NA, "Mix", "Mix", "Mix", "Mix", "American Shorthair", "Mix",…
## $ zip_code &lt;dbl&gt; 98117, 98117, 98121, 98107, 98115, 98125, 98103, 98126, 98112, 98117, 98126, 98199,…
```

---
Expand Down Expand Up @@ -203,8 +211,26 @@
## 3 Goat 16
## 4 Pig 3
```

]


---
# Solution 2

Because I was curious... what does one name a pet pig?


```r
seattle_pets |&gt;
filter(species == "Pig") |&gt;
pull(animal_name)
```

```
## [1] "Millie" "Calvin" "Waffles Olivia McHart"
```

---
class: your-turn

Expand Down Expand Up @@ -321,7 +347,7 @@
]

.pull-right[
&lt;img src="warm-up_files/figure-html/unnamed-chunk-15-1.png" width="80%" /&gt;
&lt;img src="warm-up_files/figure-html/unnamed-chunk-16-1.png" width="80%" /&gt;

]

Expand Down Expand Up @@ -357,7 +383,7 @@
]

.pull-right[
&lt;img src="warm-up_files/figure-html/unnamed-chunk-18-1.png" width="80%" /&gt;
&lt;img src="warm-up_files/figure-html/unnamed-chunk-19-1.png" width="80%" /&gt;

]

Expand All @@ -377,22 +403,22 @@
]

.pull-right[
&lt;img src="warm-up_files/figure-html/unnamed-chunk-19-1.png" width="90%" /&gt;
&lt;img src="warm-up_files/figure-html/unnamed-chunk-20-1.png" width="90%" /&gt;

]

---
# 🤔 Exploring `seattle_pets` further...

.pull-left[
What if we wanted visualize trends in number of new pets by month?
What if we wanted visualize trends in number of new pet licences by month?

We would need to handle **dates**.
]

.pull-right[

&lt;img src="warm-up_files/figure-html/unnamed-chunk-20-1.png" width="90%" /&gt;
&lt;img src="warm-up_files/figure-html/unnamed-chunk-21-1.png" width="90%" /&gt;

]

Expand Down
119 changes: 79 additions & 40 deletions slides/welcome.Rmd
View file
Original file line number Diff line number Diff line change
Expand Up @@ -91,9 +91,9 @@ Password: **conf2024**
</div>

---
class: middle, agenda
class: agenda

# Agenda
# Agenda (Session 1)

1. Intro
1. Workshop logistics
Expand All @@ -102,18 +102,40 @@ class: middle, agenda

???

---
class: speaker-slide, inverse

# Hello (again)!

.pull-left[
<img style="border-radius: 50%;" src="https://github.com/brendanhcullen.png" width="200px"/>

Brendan Cullen

.speaker-links[
`r fontawesome::fa("envelope")` [email protected]
]
]

.pull-right[
<img style="border-radius: 50%;" src="https://github.com/RhoBott.png" width="200px"/>

Kristin Bott
.speaker-links[
`r fontawesome::fa("envelope")` [email protected]
]
]

---
class: inverse, center, middle
background-image: url("https://images.unsplash.com/photo-1538370965046-79c0d6907d47?ixlib=rb-1.2.1&ixid=MnwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHx8&auto=format&fit=crop&w=2938&q=80")
background-size: cover

# .big-text.white[Welcome!]

???

Welcome to this in-person component of Introduction to Data Science with R with Posit Academy. You are all here because you're invested in learning R and making sure it sticks. You've already taken a huge step forward toward that goal over the last 5 weeks with Posit Academy.

Our goal today is guide you through some ways of prac and take advantage of being together in person to dive deeper into topics that interest you.
Our goal today is guide you through some opportunities to practice your R skills and take advantage of being together in person to dive deeper into topics that interest you.

---
class: inverse
Expand All @@ -132,31 +154,6 @@ class: inverse

3. Apply your skills to investigating new data

---
class: speaker-slide

# Hello (again)!
<!-- You can copy the image link address from your github profile to use as the src link below -->

.pull-left[
<img style="border-radius: 50%;" src="https://github.com/brendanhcullen.png" width="200px"/>

Brendan Cullen

.speaker-links[
`r fontawesome::fa("envelope")` [email protected]
]
]

.pull-right[
<img style="border-radius: 50%;" src="https://github.com/RhoBott.png" width="200px"/>

Kristin Bott
.speaker-links[
`r fontawesome::fa("envelope")` [email protected]
]
]


---
class: center, top
Expand All @@ -167,13 +164,13 @@ class: center, top

| Time | Activity |
| :------------ | :---------------------------------------- |
| 09:00 - 10:30 | Session 1 - Welcome, Warm-up & Data types |
| 09:00 - 10:30 | Session 1 - **Welcome**, **Warm-up** & **Data types** |
| 10:30 - 11:00 | *Coffee break* |
| 11:00 - 12:30 | Session 2 - Exploratory data analysis |
| 11:00 - 12:30 | Session 2 - **Exploratory data analysis** |
| 12:30 - 13:30 | *Lunch break* |
| 13:30 - 15:00 | Session 3 - Explore new data |
| 13:30 - 15:00 | Session 3 - **Explore new data** |
| 15:00 - 15:30 | *Coffee break* |
| 15:30 - 17:00 | Session 4 - Share and Wrap-up |
| 15:30 - 17:00 | Session 4 - **Share and Wrap-up** |

]

Expand Down Expand Up @@ -208,16 +205,22 @@ Wifi password
class: inverse
# Important information

## `r emo::ji("pin")` [intro-tidyverse-2024.netlify.app](https://intro-tidyverse-2024.netlify.app/)
## `r emo::ji("point_right")` [intro-tidyverse-2024.netlify.app](https://intro-tidyverse-2024.netlify.app/)

* Locations (bathrooms, lactation room, meditation room)

* Photography policy

* Code of conduct (https://posit.co/code-of-conduct/)

* Links to all of the slides

???

website is pinned in the workshop slack channel

---
class: inverse, center
class: inverse

# rconf.posit.academy

Expand All @@ -230,11 +233,9 @@ knitr::include_graphics("images/welcome/campsite_screenshot.png")
Demo conf campsite

---
class: inverse, center

# Slack
class: inverse

## \#academy-conf24-r-workshop
# \#academy-conf24-r-workshop (Slack)

For sharing code, announcements and resources.

Expand Down Expand Up @@ -271,6 +272,44 @@ Finally -- throughout the workshop, we'll use sticky notes to signal either bei

* We will be on the lookout for stickies throughout each session.

---
class: inverse

# Who's coming from ...

* Academia

* Economics/Finance

* Environment/Energy

* Government/Public Sector/Non-profit

* Healthcare/Pharma/Life Sciences

* Insurance

* Manufacturing/Supply Chain/Logistics

* ... other?

---
class: inverse

# Form small groups (2 - 3)

* Working together will be a theme of the day

* Introduce yourself to your neighbor(s)

1. Name, location, job role (how do you work with data?)

2. `r emo::ji("pig")` or `r emo::ji("goat")`? If you had to choose, **would you rather have a pet pig or a pet goat**, and why? (This will become relevant, I swear.)

???

You are all coming from a variety of professional backgrounds and levels of experience with R and programming -- awesome!

---
class: inverse, middle, center

Expand Down
Loading

0 comments on commit 9ddc1f7

Please sign in to comment.