In Athanasiamo/tidyquintro: Quick Intro to Tidyverse

layout: true

---

name: ggplot2

knitr::opts_chunk$set(echo = TRUE, 
                      message = FALSE, 
                      error = FALSE, 
                      warning = FALSE)

# These are the defaults
xaringanExtra::use_extra_styles(
  hover_code_line = TRUE,         #<<
  mute_unhighlighted_code = TRUE  #<<
)

library(knitr)
library(tidyquintro)

class: dark, middle, center

ggplot2

---

.pull-left[

ggplot(penguins,
       aes(x = bill_length_mm,
           fill = species)) +
  geom_histogram(alpha = .9, #<<
                 colour = "white")  #<<

]

.pull-right[

]

---

.pull-left[

ggplot(penguins,
       aes(x = bill_length_mm,
           fill = species)) +
  geom_histogram(alpha = .8, #<<
                 colour = "white") +
  scale_fill_viridis_d() #<<

]

.pull-right[

]

---

.pull-left[

ggplot(penguins,
       aes(x = bill_length_mm,
           fill = species)) +
  geom_histogram(alpha = .8,
                 colour = "white",
                 position = "dodge") + #<<
  scale_fill_viridis_d()

]

.pull-right[

]

---

.pull-left[

ggplot(penguins,
       aes(x = bill_length_mm,
           fill = species)) +
  geom_density(
    alpha = .8, #<<
    colour = "white",
    position = "dodge") +
  scale_fill_viridis_d()

]

.pull-right[

]

---

.pull-left[

ggplot(penguins,
       aes(y = bill_length_mm,#<<
           fill = species)) +
  geom_density(
    alpha = .8, 
    colour = "white",
    position = "dodge") +
  scale_fill_viridis_d()

]

.pull-right[

]

---

.pull-left[

ggplot(penguins,
       aes(y = bill_length_mm,
           x = bill_depth_mm, 
           colour = species)) +  #<<
  geom_point() + #<<
  scale_colour_viridis_d() #<<

]

.pull-right[

]

---

.pull-left[

ggplot(penguins,
       aes(y = bill_length_mm,
           x = bill_depth_mm, 
           colour = species)) +  
  geom_point() + 
  geom_line() + #<<
  scale_colour_viridis_d()

]

.pull-right[

]

---

.pull-left[

ggplot(penguins,
       aes(y = bill_length_mm,
           x = bill_depth_mm, 
           colour = species)) +  
  geom_point() + 
  geom_smooth(method = "lm") + #<<
  scale_colour_viridis_d()

]

.pull-right[

]

---

.pull-left[

ggplot(penguins,
       aes(y = bill_length_mm,
           x = bill_depth_mm)) +  
  geom_point(aes(colour = species)) + 
  geom_smooth(aes(colour = species),
              method = "lm") + #<<
  geom_smooth(method = "lm") + #<<
  scale_colour_viridis_d()

]

.pull-right[

]

---

class: dark, middle, center name: filter

filter

---

filter(penguins, species == "Chinstrap")

---

filter(penguins, island == "Dream")

---

filter(penguins, bill_length_mm > 40)

---

filter(penguins, bill_length_mm > 40, species == "Chinstrap")

---

class: dark, middle, center name: select

select

---

select(penguins, 1, 4, 6)

---

select(penguins, species, island, year, bill_length_mm)

---

select(penguins, species, island, year, starts_with("bill"))

---

select(penguins, species, island, body_mass_g:year, ends_with("mm"))

---

select(penguins, species, ends_with("mm"))

---

select(penguins, is.numeric)

---

select(penguins, !is.numeric)

---

class: inverse, middle, center name: pipe

pipe

---

penguins

---

mutate(penguins, extra_col = 1)

same as:

penguins |> 
  mutate(extra_col = 1)

---

penguins |> 
  select(1:2, contains("bill")) |> 
  mutate(extra_col = 1) 

---

penguins |> 
  select(1:2, contains("bill")) |> 
  mutate(extra_col = 1) |> 
  filter(sex == "female")

---

class: inverse, middle, center name: mutate

mutate

---

penguins |> 
  mutate( 
    new_column = 1,
    bill_ld_ratio = bill_length_mm/bill_depth_mm
    )

---

penguins |> 
  group_by(species) |> 
  mutate(
    bill_length_sp_max = max(bill_length_mm, na.rm = TRUE),
    bill_length_pc = (bill_length_mm/bill_length_sp_max)*100
    )

---

penguins |> 
  mutate(across(ends_with("mm"), 
                ~ .x/10))

Athanasiamo/tidyquintro documentation built on Oct. 11, 2022, 7:15 p.m.