index.qmd

---
title: "Cascadia-R"
subtitle: "Then/Now/Next"
author: ["Jessica Minnier", "Ted Laderas"]
date: 08/19/2023
format: 
  revealjs:
    #css: [custom.css, hex.css, timeline.css]
    progress: false
    menu: false
    slide-number: true
    width: 1280
    height: 720
    preview-links: true
    standalone: true
    scrollable: true
    theme: sky
    footer: <https://bit.ly/cascadia_history>
highlight-style: a11y
---

```{r setup}
library(tidyverse)
library(ggstats)
library(tidytext)
library(wordcloud)
library(ThemePark)
responses <- read_csv("data/Cascadia R Conference Evaluation (Responses) 2017 - Form Responses 1.csv", na = "N/A")
responses2 <- read_csv("data/Cascadia R Conference Evaluation(Responses) - 2018 - Form Responses 1.csv", na="N/A")
```

## Answered Questions 

- Can you organize a conference with just 6 people?
- What is the Cascadia R Community Like?
- Should you volunteer for the next Cascadia-R?

## Outline

- Then (How we started)
- Now (How the conf has evolved)
- Next (What we hope for the future)

# Then (2017-2018)

## The origins

:::: {.columns}

::: {.column width="30%"}
![Gigantic Brewery](images/gigantic.jpg)
```
cascadia-R <- pdx_r |>
  add_group(oregon_state) |>
  add_group(seattle) |>
  add_group(vancouver) |>
  add_group(u_oregon)
```
:::

::: {.column width="70%"}
:::{.fragment}
- Lots of R Groups: [PDX-R](https://www.meetup.com/portland-r-user-group/), Oregon State University, [Seattle-R](https://www.meetup.com/seattle-user/), [University of Oregon](https://blogs.uoregon.edu/rclub/),  [Vancouver-R](https://www.meetup.com/vancouver-r-users-group-data-analysis-statistics/)
:::
:::{.fragment}
- beeR discussion: "How can we bring these groups together?"
:::
:::{.fragment}
- "How can we make the conference accessible to the most people?"
:::
:::{.fragment}
- "Where can we hold it?"
:::
:::

::::

## Our Values

::::{.columns}
:::{.column}
- Home-Grown
- Informal vs. Academic
- Social 
- Local people and R
:::

:::{.column}
- Inclusive
- Accessible
- beeR
:::
::::

## 2017-2018: It was just 6/7 people

::::{.columns}
:::{.column}
- Chester Ismay   
- Jessica Minnier 
- John David Smith
- Lilly Winfree
- Scott Chamberlain
- Ted Laderas
- Aaron Makubuya (2018)
:::

:::{.column}
![Cascadia-R Organizer Team](images/CascadiaRConf-Intro.png){width=600}
:::
::::

## Tools that helped make the conference

::::{.columns}
:::{.column width="30%"}
- [Trello (pull plan)](https://trello.com/b/lphkRbnU/cascadia-r-pull-plan)
- [Slack](https://cascadiarconf.slack.com)
- Asynchronous Decisions
- Everyone did their part and it all came together
:::
:::{.column width="70%}
![](images/trello.png){width=600}
:::
::::
## Plan for a Minimum Viable Conference

:::{.incremental}
::::{.columns}
:::{.column}
- A Venue
- Speakers
- Audience
- Workshops
- Scholarships
:::

:::{.column}
- Code of Conduct
- Snacks/Beer
- Bartender
- Childcare
- Recording
:::
::::
:::

# Timeline: 2 1/2 months


## Venue: OHSU/PSU Collaborative Life Sciences Building

::::{.columns}
:::{.column}
- Med school student classroom (275 capacity)
- Lots of Outlets / Fast Internet
- Lots of begging on my part
:::

:::{.column}
![](images/CLSB-SKT+Exterior+Primary.jpg)
:::
::::

## Who Gets to Talk?

![Distribution of Talk Proposal Scores](images/talk-proposals.jpg)

## What Happened on the Big Day?

::::{.columns}
:::{.column}
- Chaos (In a good way)
- Registration: Relatively quick!
- Agenda: updating website day of
- Workshops
- Lightning Talks + Free Beer
:::
:::{.column}
![Registration Booth](images/IMG_4367-registration.jpg)
:::
::::

## Keynotes

Lesson: it doesn't hurt to ask!

- Vinay Prasad 
- Gabriela de Quieroz 
- Alison Hill 
- Kara Woo

## Workshops

::::{.columns}
:::{.column}
- Home-grown
- [gRadual intRoduction to Tidyverse](https://github.com/Cascadia-R/gRadual-intRoduction-tidyverse)
- [Happy R Users Purrr](https://github.com/Cascadia-R/purrr-tutorial)
- Deep Learning with TensorFlow
- [R with Databases](https://github.com/Cascadia-R/Using_R_With_Databases)
:::
:::{.column}
![Charlotte Wickham Teaching `purrr`](images/IMG_4199-purrr.JPG)
:::
::::

## Panel Discussion

::::{.columns}
:::{.column}
- Impostor Syndrome
  - Frank Discussion of what it means
  
```
cascadia_r |>
  drop_feeling("impostor")
```
:::
:::{.column}

{{< fa users size=10x >}}
:::
::::

## cRaggy: Visualizing Data Together

:::: {.columns}
::: {.column width="50%"}

![](images/IMG_4387.jpg)
:::

::: {.column width="50%"}
- Nike Biketown Data
- This is for fun
- Be supportive and kind to each other! 
:::
::::

## Childcare/Travel Scholarships/Student Tickets

- Wanted the conference to be accessible to everyone
- Used a portion of ticket sales to handle this

## beeR

::::{.columns}
:::{.column}
- Painful logistically but worth it
- Hiring bartender and food service
- Promising facilities not to make a mess
- People were still chatting afterwards
:::
:::{.column}
```
cascadia_r |>
  add_beer()
```

{{< fa beer-mug-empty size=10x >}}
:::
::::

# Who are the Cascadia R Attendees?

## 2018: 254 People Registered!

![Wide picture showing 254 people](images/IMG_4201.JPG)


## How far did people travel?

```{r}
#| message: false
#| warning: false
 
responses |>
  select(contains("mile")) |>
  rename(miles=`How many miles did you travel to get here?`) |>
  #mutate(miles=readr::parse_number(miles)) |>
  filter(miles < 2000) |>
  ggplot() + 
  aes(x=miles) +
  geom_histogram(bins = 50, fill="#f29ad8", color="pink") +
  #theme_barbie() +
  labs(title="How many miles did you travel to get here? (n=59)") +
  ylab("count") + ylim(c(0,33)) +
  annotate(x=0, y=31, geom="text", label="Portland") +
  annotate(x=83, y=5, geom="text", label="Corvallis/\nEugene") +
  annotate(x=165, y=8, geom="text", label="Seattle") +
  annotate(x=635, y=2, geom="text", label="San Francisco") +
  theme_barbie()

```
<https://milesofme.com/portland-or/1000>

## Diverse in Skill Levels

```{r}
career_count <- responses2 |>
  dplyr::rename(career = `Where are you in your career?`) |>
  count(career) |> mutate(career=fct_reorder(career, n,.desc = TRUE)) |>
  dplyr::filter(n>1)
  
  
ggplot(career_count) + aes(x=career, y=n, fill=n) + geom_col() + scale_fill_barbie() +
  geom_text(aes(label=career), vjust=-2.5, angle=45, hjust=0.1) +
  theme(legend.position="none") + labs(title="Who is the Cascadia-R Community? (n=76)", xlab="Career", ylab="number of people") +
  theme_minimal() +
  theme(legend.position = "none", axis.text.x = element_blank() ) +
  ylim(c(0, 35)) + theme_barbie()

```

## Diverse in Backgrounds

```{r}
responses3 <- responses2 |> dplyr::select(contains("industry")) |> 
  dplyr::rename(industry=`Which industry are you in? Select the one that most closely relates to your work or interest`) |> 
  tidyr::separate_longer_delim(cols=industry, delim=" ") |> 
  mutate(industry=stringr::str_replace(industry,",","")) |> 
  dplyr::filter(industry!="/") |>
  dplyr::mutate(industry = fct_infreq(industry)) |>
  count(industry)

  
responses_count <- responses3 |> count(industry)  |>
  dplyr::filter(n > 1) 

responses3 |>
  dplyr::filter(n>3) |>
  #dplyr::filter(industry %in% responses_count$industry) |>
  ggplot() + aes(x=industry, y=n, fill=n) + geom_col() + scale_fill_barbie() +
  geom_text(aes(label=industry, color=barbie_theme_colors["text"]), vjust=-2.5, hjust=0.1, angle=45) +
    theme_minimal()  +
  theme(legend.position = "none", axis.text.x = element_blank() ) +
  labs(title="Cascadia-R is Not just academia! (n=76)", xlab="Field") +
  ylim(c(0, 40)) + theme_barbie()

```

## Talks

:::{.fragment}
- **Lisa Karstens** 
    - *Microbial community analysis in R*
:::
:::{.fragment}
- **Amelia Abreu** 
    - [*Improving the Developer Experience*](https://docs.google.com/presentation/d/1PYtNeoKSE31_peywfy6ZRbQyZhGRIFPBB7Vuh33v7yE/edit#slide=id.p)
:::
:::{.fragment}
- **Daniel Anderson**	
    -	[*Contribute to Open Source with Pretty Slides*](https://www.datalorax.com/talks/cascadia18/#1)
:::
:::{.fragment}
- **Kalbi Zongo** 
    - *Introduction to sparklyr*
:::


## Lightning Talks

::::{.columns}

:::{.column}
::: {.fragment}
- **Amy Williams** 
    - *Using R for Behavioral Data: The Fun and Frustration of Factorial and Repeated-Measures ANOVAs*
:::

::: {.fragment}
- **Jacqueline Nolis** 
    - *Using deep learning in R to generate offensive license plates*
:::

:::

:::{.column}
![](images/IMG_4404-license.jpg)
:::
::::

## Friends we made along the way

:::: {.columns}
::: {.column width="50%"}
- Caitlin Hudon
- Jacqueline and Heather Nolis
- Sondra Stegenga
- Dror Berel
- Isabella Velaquez
- Alison Hill
:::

::: {.column width="50%"}
- Daniel Anderson
- Ellis Hughes
- David Severski
- Kara Woo
- Meike Niederhausen
- Charlotte Wickham
:::

::::


# How was the Conf?

## They Really Liked It!

```{r}
#! warning: false

levs=c(`1`="Strongly Disagree", `2`="Disagree", `3`="Neutral", `4`="Agree", `5`="Strongly Agree")

responses_likert <- responses2 |>
  select(contains("Main")) |>
  mutate(across(everything(), as.factor)) |>
  mutate(id=row_number()) |>
  tidyr::pivot_longer(cols=-id, names_to = "category", values_to = "likert") |>
  mutate(likert=fct_recode(likert, "Strongly Disagree"="1", "Disagree"="2", "Neutral"="3", "Agree"="4", "Strongly Agree"="5")) |>
  mutate(likert=ordered(likert)) |>
  mutate(likert = fct_rev(likert)) |>
  pivot_wider(id_cols = id, names_from=category, values_from = likert) |>
  select(-id) |>
  mutate(across(everything(), ~ factor(.x, levels = levs)))
  
colnames(responses_likert) <- c("Registration", "Location", "Wi-Fi","Agenda","Schedule", "Snacks/Drinks", "Talk Quality", "Keynote Topics")  


responses_likert <- responses_likert |> select(any_of(c( "Location", "Agenda","Schedule", "Talk Quality", "Keynote Topics", "Snacks/Drinks")))

responses_likert <- as.data.frame(responses_likert)

ggstats::gglikert(responses_likert) + labs(title="Attendees loved the conference! (n=76)") + theme_barbie()

```


## How did we do?

```{r}
text_frame <- responses2 |> select(contains("what") | contains("additional")) |>
  rename(favorite=`What were your favorite parts of the conference?`, improve=`What would you change or improve about the conference?`, etc=`Please add additional comments on your overall conference experience.`) |>
  pivot_longer(everything(), names_to = "question", values_to = "answers") |>
  unnest_tokens("word", "answers") |>
    mutate(word=str_replace(word, pattern = "workshop$", replacement="workshops")) |>
    anti_join(stop_words)

tf_counts <- text_frame |> count(word, sort=TRUE)

pal = c("#f29ad8",
"#ee71c3",
"#f658b8",
"#f039b1",
"#e305ad")

wordcloud(tf_counts$word, tf_counts$n, 
          min.freq=5, random.order=FALSE,colors = pal, random.color = FALSE)

```


## How did we do?

:::{.fragment}
> I was seriously blown away. Of all the conferences I've been to over the years this was the most beneficial and well structured conference I've attended. It's an amazing deal that can't be beat!
:::

:::{.fragment}
> Amazing conference! love the one day thing, the schedule, and the location!
:::

:::{.fragment}
> Had a great time and glad I came! Thanks for keeping the coffee flowing.
:::

## How did we do?

:::{.fragment}
> 10/10 for enchantment!                                                                              
:::

:::{.fragment}
> Child care was great!  
:::

:::{.fragment}
> The venue was amazing. The value was exceptional. The conference was very well organized. I loved the code of conduct. I'm having a harder time than expected finding an analytics job and this conference inspired me to keep going, keep learning, keep trying, and keep improving my R skills.
:::

## How did we do?

:::{.fragment}
> I love this conference, it was absolutely a great use of my time  
:::

:::{.fragment}
> y'all did a great job, thank you.
:::

:::{.fragment}
> Please keep doing these conferences. They are valuable
:::

:::{.fragment}
> Thank you so much for making this accessible/affordable to students!
:::

:::{.fragment}
> I'd rate this conference 11/10 and look forward to attending again in future years.  
:::

## What Did We Learn? 

- Volunteers are awesome and step up
- Home-grown is cost-effective (balanced our budget)
- Workshops take work, but are well received
- Amazing speakers are all around us
- A conference is all about the people
- **Cascadia R community members are amazing**

## The Legacy of Cascadia-R

- Brought local R users together
- Commitment to Diversity and Inclusion
- Workshop material is still being used
- Accessibility is appreciated (cheap tickets, scholarships, childcare, lactation room)

# Now: Cascadia-R Beyond Us

## Cascadia-R continues to evolve

::::{.columns}
:::{.column}
Conference has continued on and become something even more amazing
:::

:::{.column}
::::{.r-stack}

:::{.fragment width=600}
![](images/logo-2018.png)
:::

:::{.fragment width=500}
![](images/2X-logo2019.png)
:::

:::{.fragment width=600}
![](images/logo_2021.png)
:::

:::{.fragment width=500}
![](images/logo_2023.png)
:::
::::
:::
::::

# Pandemic Lessons

## The Cascadia-R that Wasn't (2020)

::::{.columns}
:::{.column}
- Year of COVID
- [University of Oregon](https://cascadiarconf.com/years/2020/agenda/)
  - Daniel Anderson
  - Brendan Cullen
:::

:::{.column}
![](images/logo2020.png){width=500}
:::
::::

## A lifeline

::::{.columns}
:::{.column}
- CascadiaRconf continued virtually 2021-2022
- Maintained a community despite decentralization of information (rip #rstats twitter) and isolation
- Uplifting to be here together again!
:::
:::{.column}
![](images/logo_2021.png)
:::
::::

## Hybrid/Virtual

- Improve accessibility if done well
- Online networking, sharing of info
- Code of Conduct for both

# Togetherness

> The value of “seeing the community” is that all the different threads can come together: people who may not have recognized each other as partners, all of a sudden had a common purpose.
> - John David Smith

# Next

## Goals

:::{.fragment}
- Get out of Portland {{< fa square-check >}}
:::
:::{.fragment}
- Keep values upheld  {{< fa square-check >}}
:::
:::{.fragment}
- Encourage participation from all   {{< fa square-check >}}
    - (even a 5 minute talk on something you learned! we are all learners)
:::
:::{.fragment}
- Continue to learn how to increase diversity, accessibility, reach underrepresented groups  {{< fa square-check >}}
:::

## Answers to the Questions

:::{.fragment}
- Can you organize a conference with just 6 people?
  - Yeah, with the help of the R community!
:::

:::{.fragment}
- Who is the Cascadia-R audience?
  - Talented people who do amazing things
:::

:::{.fragment}
- Should you volunteer for the next Cascadia R?
  - Yeah! You really should.
:::
  
::: {.fragment}
- What is that `{ggplot2}` Barbie theme?
  - `theme_barbie()` from [{ThemePark}](https://github.com/MatthewBJane/theme_park)
:::
  
## Thank You and Gratitude

- OHSU, Posit, ProCogia, Fred Hutch, and R-Consortium and other sponsors
- Cascadia-R Organizers (past and present)
- You! The amazing Cascadia-R audience and speakers
- [Made with Quarto](https://quarto.org)