diff --git a/slides/warm-up.Rmd b/slides/warm-up.Rmd index bf56cb0..43b020e 100644 --- a/slides/warm-up.Rmd +++ b/slides/warm-up.Rmd @@ -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 @@ -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 @@ -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 @@ -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**. ] diff --git a/slides/warm-up.html b/slides/warm-up.html index c7bb027..c8a18e9 100644 --- a/slides/warm-up.html +++ b/slides/warm-up.html @@ -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 @@ -124,13 +132,13 @@ ``` ## Rows: 43,683 ## Columns: 7 -## $ license_issue_date <chr> "December 18 2015", "June 14 2016", "August 04 2016", "February 13 2019", "August 10 201… -## $ license_number <chr> "S107948", "S116503", "S119301", "962273", "S133113", "8002549", "S112835", "S131986", "… -## $ animal_name <chr> "Zen", "Misty", "Lyra", "Veronica", "Spider", "Maxx", "Diamond", "Nacho", "Pixel", "C.C.… -## $ species <chr> "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat… -## $ primary_breed <chr> "Domestic Longhair", "Siberian", "Mix", "Domestic Longhair", "LaPerm", "American Shortha… -## $ secondary_breed <chr> "Mix", NA, NA, NA, NA, NA, "Mix", "Mix", "Mix", "Mix", "American Shorthair", "Mix", NA, … -## $ zip_code <dbl> 98117, 98117, 98121, 98107, 98115, 98125, 98103, 98126, 98112, 98117, 98126, 98199, 9811… +## $ license_issue_date <chr> "December 18 2015", "June 14 2016", "August 04 2016", "February 13 2019", "August 1… +## $ license_number <chr> "S107948", "S116503", "S119301", "962273", "S133113", "8002549", "S112835", "S13198… +## $ animal_name <chr> "Zen", "Misty", "Lyra", "Veronica", "Spider", "Maxx", "Diamond", "Nacho", "Pixel", … +## $ species <chr> "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat",… +## $ primary_breed <chr> "Domestic Longhair", "Siberian", "Mix", "Domestic Longhair", "LaPerm", "American Sh… +## $ secondary_breed <chr> "Mix", NA, NA, NA, NA, NA, "Mix", "Mix", "Mix", "Mix", "American Shorthair", "Mix",… +## $ zip_code <dbl> 98117, 98117, 98121, 98107, 98115, 98125, 98103, 98126, 98112, 98117, 98126, 98199,… ``` @@ -151,13 +159,13 @@ ``` ## Rows: 43,683 ## Columns: 7 -## $ license_issue_date <chr> "December 18 2015", "June 14 2016", "August 04 2016", "February 13 2019", "August 10 201… -## $ license_number <chr> "S107948", "S116503", "S119301", "962273", "S133113", "8002549", "S112835", "S131986", "… -## $ animal_name <chr> "Zen", "Misty", "Lyra", "Veronica", "Spider", "Maxx", "Diamond", "Nacho", "Pixel", "C.C.… -## $ species <chr> "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat… -## $ primary_breed <chr> "Domestic Longhair", "Siberian", "Mix", "Domestic Longhair", "LaPerm", "American Shortha… -## $ secondary_breed <chr> "Mix", NA, NA, NA, NA, NA, "Mix", "Mix", "Mix", "Mix", "American Shorthair", "Mix", NA, … -## $ zip_code <dbl> 98117, 98117, 98121, 98107, 98115, 98125, 98103, 98126, 98112, 98117, 98126, 98199, 9811… +## $ license_issue_date <chr> "December 18 2015", "June 14 2016", "August 04 2016", "February 13 2019", "August 1… +## $ license_number <chr> "S107948", "S116503", "S119301", "962273", "S133113", "8002549", "S112835", "S13198… +## $ animal_name <chr> "Zen", "Misty", "Lyra", "Veronica", "Spider", "Maxx", "Diamond", "Nacho", "Pixel", … +## $ species <chr> "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat", "Cat",… +## $ primary_breed <chr> "Domestic Longhair", "Siberian", "Mix", "Domestic Longhair", "LaPerm", "American Sh… +## $ secondary_breed <chr> "Mix", NA, NA, NA, NA, NA, "Mix", "Mix", "Mix", "Mix", "American Shorthair", "Mix",… +## $ zip_code <dbl> 98117, 98117, 98121, 98107, 98115, 98125, 98103, 98126, 98112, 98117, 98126, 98199,… ``` --- @@ -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 |> + filter(species == "Pig") |> + pull(animal_name) +``` + +``` +## [1] "Millie" "Calvin" "Waffles Olivia McHart" +``` + --- class: your-turn @@ -321,7 +347,7 @@ ] .pull-right[ -<img src="warm-up_files/figure-html/unnamed-chunk-15-1.png" width="80%" /> +<img src="warm-up_files/figure-html/unnamed-chunk-16-1.png" width="80%" /> ] @@ -357,7 +383,7 @@ ] .pull-right[ -<img src="warm-up_files/figure-html/unnamed-chunk-18-1.png" width="80%" /> +<img src="warm-up_files/figure-html/unnamed-chunk-19-1.png" width="80%" /> ] @@ -377,7 +403,7 @@ ] .pull-right[ -<img src="warm-up_files/figure-html/unnamed-chunk-19-1.png" width="90%" /> +<img src="warm-up_files/figure-html/unnamed-chunk-20-1.png" width="90%" /> ] @@ -385,14 +411,14 @@ # 🤔 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[ -<img src="warm-up_files/figure-html/unnamed-chunk-20-1.png" width="90%" /> +<img src="warm-up_files/figure-html/unnamed-chunk-21-1.png" width="90%" /> ] diff --git a/slides/welcome.Rmd b/slides/welcome.Rmd index 91174ec..bd6c098 100644 --- a/slides/welcome.Rmd +++ b/slides/welcome.Rmd @@ -91,9 +91,9 @@ Password: **conf2024** --- -class: middle, agenda +class: agenda -# Agenda +# Agenda (Session 1) 1. Intro 1. Workshop logistics @@ -102,10 +102,32 @@ class: middle, agenda ??? +--- +class: speaker-slide, inverse + +# Hello (again)! + +.pull-left[ + + +Brendan Cullen + +.speaker-links[ +`r fontawesome::fa("envelope")` brendan.cullen@posit.co +] +] + +.pull-right[ + + +Kristin Bott +.speaker-links[ +`r fontawesome::fa("envelope")` kristin.bott@posit.co +] +] + --- 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!] @@ -113,7 +135,7 @@ background-size: cover 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 @@ -132,31 +154,6 @@ class: inverse 3. Apply your skills to investigating new data ---- -class: speaker-slide - -# Hello (again)! - - -.pull-left[ - - -Brendan Cullen - -.speaker-links[ -`r fontawesome::fa("envelope")` brendan.cullen@posit.co -] -] - -.pull-right[ - - -Kristin Bott -.speaker-links[ -`r fontawesome::fa("envelope")` kristin.bott@posit.co -] -] - --- class: center, top @@ -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** | ] @@ -208,7 +205,7 @@ 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) @@ -216,8 +213,14 @@ class: inverse * 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 @@ -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. @@ -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 diff --git a/slides/welcome.html b/slides/welcome.html index fca6589..93fdc32 100644 --- a/slides/welcome.html +++ b/slides/welcome.html @@ -47,9 +47,9 @@ </div> --- -class: middle, agenda +class: agenda -# Agenda +# Agenda (Session 1) 1. Intro 1. Workshop logistics @@ -58,10 +58,32 @@ ??? +--- +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[ + brendan.cullen@posit.co +] +] + +.pull-right[ +<img style="border-radius: 50%;" src="https://github.com/RhoBott.png" width="200px"/> + +Kristin Bott +.speaker-links[ + kristin.bott@posit.co +] +] + --- 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!] @@ -69,7 +91,7 @@ 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 @@ -88,31 +110,6 @@ 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[ - brendan.cullen@posit.co -] -] - -.pull-right[ -<img style="border-radius: 50%;" src="https://github.com/RhoBott.png" width="200px"/> - -Kristin Bott -.speaker-links[ - kristin.bott@posit.co -] -] - --- class: center, top @@ -123,13 +120,13 @@ | 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** | ] @@ -164,7 +161,7 @@ class: inverse # Important information -## 📌 [intro-tidyverse-2024.netlify.app](https://intro-tidyverse-2024.netlify.app/) +## 👉 [intro-tidyverse-2024.netlify.app](https://intro-tidyverse-2024.netlify.app/) * Locations (bathrooms, lactation room, meditation room) @@ -172,8 +169,14 @@ * 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 @@ -184,11 +187,9 @@ Demo conf campsite --- -class: inverse, center - -# Slack +class: inverse -## \#academy-conf24-r-workshop +# \#academy-conf24-r-workshop (Slack) For sharing code, announcements and resources. @@ -221,6 +222,44 @@ * 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. 🐷 or 🐐? 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