---
subtitle: "
Ilustração por @allison_horst
"
title: "R-Ladies São Paulo"
author: "Atualizado em `r format(Sys.Date(), format='%d de %B de %Y')`"
output:
xaringan::moon_reader:
lib_dir: libs
css: [default, metropolis, metropolis-fonts, "https://beatrizmilz.github.io/slidesR/rladies/custom.css"]
#knit: pagedown::chrome_print
---
layout: true
```{r setup, include=FALSE}
options(htmltools.dir.version = FALSE)
knitr::opts_chunk$set(
echo = FALSE,
fig.align = "center",
message = FALSE,
warning = FALSE
)
```
```{r include=FALSE}
# Base de dados
library(tidyverse)
url <- "https://benubah.github.io/r-community-explorer/data/rladies.csv"
download.file(url, "data/rladies.csv", method = "curl")
rladies <- readr::read_csv("data/rladies.csv")
```
```{r xaringanExtra, echo=FALSE}
#devtools::install_github("gadenbuie/xaringanExtra")
xaringanExtra::use_logo(image_url = "https://beatrizmilz.github.io/slidesR/introR/img/rainbow-inclusive.png",
link_url = "https://github.com/R-Ladies-Sao-Paulo/RLadies-Brasil")
```
```{r xaringanExtra-share-again, echo=FALSE}
xaringanExtra::use_share_again()
```
```{r metathis, echo=FALSE}
library(metathis)
meta() %>%
meta_name("github-repo" = "beatrizmilz/slidesR") %>%
meta_social(
title = "R-Ladies São Paulo",
description = paste(
"Apresentação sobre a R-Ladies São Paulo"
),
url = "https://beatrizmilz.github.io/slidesR/rladies/index.html",
image = "https://beatrizmilz.github.io/slidesR/rladies/img/share-card.png",
image_alt = paste(
"Primeiro slide da apresentação sobre",
"a R-Ladies São Paulo",
"Apresentado por Beatriz Milz"
),
og_type = "website",
og_author = "Beatriz Milz",
twitter_card_type = "summary_large_image",
twitter_creator = "@beamilz"
)
```
---
class:
# O que é a R-Ladies?
R-Ladies é uma organização mundial cuja missão é promover a diversidade de gênero na comunidade da linguagem R.
R-Ladies São Paulo integra, orgulhosamente, a organização R-Ladies Global, em São Paulo.
## Como?
Através de meetups e mentorias em um ambiente seguro e amigável.
Nosso principal objetivo é promover a linguagem computacional estatística R compartilhando conhecimento, assim, quem tiver interesse na linguagem será bem-vinda, independente do nível de conhecimento.
Fonte: [About us - R-Ladies](https://rladies.org/about-us/), [Meetup R-Ladies São Paulo](https://www.meetup.com/R-Ladies-Sao-Paulo/)
---
class:
# Para quem?
Nosso principal público-alvo são as pessoas que se identificam com gêneros sub-representados na comunidade R, portanto: mulheres cis, mulheres trans, homens trans, pessoas não-binárias e queer.
## Missão
Como uma iniciativa de diversidade, a missão das R-Ladies é alcançar uma representação proporcional de pessoas de gêneros atualmente sub-representados na comunidade R, incentivando, inspirando e capacitando-as.
## Código de conduta
A R-Ladies dedica-se a proporcionar uma experiência livre de assédio para todas as pessoas partcicipantes, desta forma, não é tolerada nenhuma forma de assédio. [Código de conduta - R-Ladies](https://github.com/rladies/starter-kit/wiki/Code-of-Conduct#portuguese)
Fonte: [About us - R-Ladies](https://rladies.org/about-us/), [Meetup R-Ladies São Paulo](https://www.meetup.com/R-Ladies-Sao-Paulo/)
---
class:
# R-Ladies - Capítulos no mundo
Atualizado em: `r format(Sys.time(), '%B de %Y')`. Fonte: [R Community Explorer](https://benubah.github.io/r-community-explorer/rladies.html)
```{r echo=FALSE}
rladies %>%
group_by(region) %>%
summarise(n_capitulos = n(),
total_participantes = sum(members, na.rm = TRUE)) %>%
dplyr::arrange(desc(n_capitulos)) %>%
knitr::kable(col.names = c("Região", "Número de Capítulos", "Total de participantes"))
```
---
class:
# R-Ladies no Brasil
Atualizado em: `r format(Sys.time(), '%B de %Y')`. Fonte: [R Community Explorer](https://benubah.github.io/r-community-explorer/rladies.html)
```{r echo=FALSE}
rladies_br <- rladies %>%
dplyr::arrange(desc(members)) %>%
filter(country == "Brazil") %>%
mutate(name = paste0("", name, "")) %>%
select(
-X1,
-city,
-region,
-fullurl,
-country,
-created,
-upcoming_events,
-last_event,
-past_events,
-status
)
```
.pull-left[
```{r}
rladies_br %>%
slice(1:8) %>%
knitr::kable(col.names = c("Capítulo", "Participantes"))
```
]
.pull-right[
```{r}
rladies_br %>%
slice(9:n()) %>%
knitr::kable(col.names = c("Capítulo", "Participantes"))
```
]
Capítulos e eventos online da R-Ladies no Brasil
```{r include=FALSE}
pessoas_sp <- rladies %>% filter(city == "São Paulo") %>% select(members) %>% pull()
```
---
class:
# R-Ladies em São Paulo
```{r out.width="65%"}
knitr::include_graphics("https://beatrizmilz.github.io/slidesR/rladies/img/1meetupsp.jpeg")
```
- **Primeiro encontro da R-Ladies São Paulo ** - Agosto/2018
- **+ `r pessoas_sp` pessoas participantes** - `r format(Sys.Date(), format='%B de %Y')`
---
class:
# Saiba mais sobre a R-Ladies
.pull-left[
- R-Ladies Global: [Website](https://rladies.org/), [ Twitter](https://twitter.com/rladiesglobal)
- R-Ladies São Paulo:
- [ Twitter](https://twitter.com/RLadiesSaoPaulo)
- [ Instagram](https://instagram.com/RLadiesSaoPaulo)
- [ Facebook](https://facebook.com/RLadiesSaoPaulo)
- [ Meetup](https://www.meetup.com/pt-BR/R-Ladies-Sao-Paulo)
- [ GitHub](https://github.com/rladies/meetup-presentations_sao-paulo)
- [ Youtube](https://www.youtube.com/channel/UCU3ePTnZQurDkYgPK61DAOw)
- [Capítulos da R-Ladies no Brasil](https://github.com/R-Ladies-Sao-Paulo/RLadies-Brasil) - Não tem capítulo na sua cidade e quer iniciar um? Saiba como em [R-Ladies - How do get involved](https://rladies.org/about-us/help/)!
Capítulos e eventos online da R-Ladies no Brasil
]
.pull-right[
```{r fig.cap="Ilustração por @allison_horst" , out.width="70%"}
knitr::include_graphics("https://beatrizmilz.github.io/slidesR/rladies/img/allisonhorst/principio_agora_pt.png")
```
- Apresentação feita por [Beatriz Milz](https://beatrizmilz.com) com o pacote [xaringan](https://github.com/yihui/xaringan), com o tema `metropolis` modificado.
]