+ - 0:00:00
Notes for current slide
Notes for next slide
dat
# A tibble: 230 x 13
manufacturer model displ year cyl trans drv cty hwy fl
<chr> <chr> <dbl> <int> <int> <chr> <chr> <int> <int> <chr>
1 audi a4 1.8 1999 4 auto~ f 18 29 p
2 audi a4 1.8 1999 4 manu~ f 21 29 p
3 audi a4 2 2008 4 manu~ f 20 31 p
4 audi a4 2 2008 4 auto~ f 21 30 p
5 audi a4 2.8 1999 6 auto~ f 16 26 p
6 audi a4 2.8 1999 6 manu~ f 18 26 p
7 audi a4 3.1 2008 6 auto~ f 18 27 p
8 audi a4 q~ 1.8 1999 4 manu~ 4 18 26 p
9 audi a4 q~ 1.8 1999 4 auto~ 4 16 25 p
10 audi a4 q~ 2 2008 4 manu~ 4 20 28 p
# ... with 220 more rows, and 3 more variables: class <chr>,
# cyl_text <glue>, cyl_color <chr>
1 / 1
dat %>%
ggplot()

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2)

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity()

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text)

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
)

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal()

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none')

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code'))

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank())

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines"))

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines")) +
theme(plot.background = element_rect(fill = '#D3D3D3'))

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines")) +
theme(plot.background = element_rect(fill = '#D3D3D3')) +
theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm'))

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines")) +
theme(plot.background = element_rect(fill = '#D3D3D3')) +
theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
theme(plot.title.position = 'plot')

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines")) +
theme(plot.background = element_rect(fill = '#D3D3D3')) +
theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
theme(plot.title.position = 'plot') +
theme(plot.title = element_markdown(size = 16,
face = 'bold',
color = '#525252',
lineheight = 1.2))

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines")) +
theme(plot.background = element_rect(fill = '#D3D3D3')) +
theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
theme(plot.title.position = 'plot') +
theme(plot.title = element_markdown(size = 16,
face = 'bold',
color = '#525252',
lineheight = 1.2)) +
theme(plot.subtitle = element_textbox_simple(
size = 10,
lineheight = 1.2,
padding = margin(5.5, 5.5, 5.5, 5.5),
margin = margin(0, 0, 5.5, 0),
fill = '#CCCCCC'))

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines")) +
theme(plot.background = element_rect(fill = '#D3D3D3')) +
theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
theme(plot.title.position = 'plot') +
theme(plot.title = element_markdown(size = 16,
face = 'bold',
color = '#525252',
lineheight = 1.2)) +
theme(plot.subtitle = element_textbox_simple(
size = 10,
lineheight = 1.2,
padding = margin(5.5, 5.5, 5.5, 5.5),
margin = margin(0, 0, 5.5, 0),
fill = '#CCCCCC')) +
theme(plot.caption = element_textbox_simple(
size = 9,
lineheight = 1.2,
margin = margin(20, 50, 0, 0),
fill = '#D3D3D3'))

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines")) +
theme(plot.background = element_rect(fill = '#D3D3D3')) +
theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
theme(plot.title.position = 'plot') +
theme(plot.title = element_markdown(size = 16,
face = 'bold',
color = '#525252',
lineheight = 1.2)) +
theme(plot.subtitle = element_textbox_simple(
size = 10,
lineheight = 1.2,
padding = margin(5.5, 5.5, 5.5, 5.5),
margin = margin(0, 0, 5.5, 0),
fill = '#CCCCCC')) +
theme(plot.caption = element_textbox_simple(
size = 9,
lineheight = 1.2,
margin = margin(20, 50, 0, 0),
fill = '#D3D3D3')) +
theme(axis.text = element_text(size = 12))

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines")) +
theme(plot.background = element_rect(fill = '#D3D3D3')) +
theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
theme(plot.title.position = 'plot') +
theme(plot.title = element_markdown(size = 16,
face = 'bold',
color = '#525252',
lineheight = 1.2)) +
theme(plot.subtitle = element_textbox_simple(
size = 10,
lineheight = 1.2,
padding = margin(5.5, 5.5, 5.5, 5.5),
margin = margin(0, 0, 5.5, 0),
fill = '#CCCCCC')) +
theme(plot.caption = element_textbox_simple(
size = 9,
lineheight = 1.2,
margin = margin(20, 50, 0, 0),
fill = '#D3D3D3')) +
theme(axis.text = element_text(size = 12)) +
theme(axis.title = element_text(size = 12, face = 'bold', color = '#525252'))

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines")) +
theme(plot.background = element_rect(fill = '#D3D3D3')) +
theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
theme(plot.title.position = 'plot') +
theme(plot.title = element_markdown(size = 16,
face = 'bold',
color = '#525252',
lineheight = 1.2)) +
theme(plot.subtitle = element_textbox_simple(
size = 10,
lineheight = 1.2,
padding = margin(5.5, 5.5, 5.5, 5.5),
margin = margin(0, 0, 5.5, 0),
fill = '#CCCCCC')) +
theme(plot.caption = element_textbox_simple(
size = 9,
lineheight = 1.2,
margin = margin(20, 50, 0, 0),
fill = '#D3D3D3')) +
theme(axis.text = element_text(size = 12)) +
theme(axis.title = element_text(size = 12, face = 'bold', color = '#525252')) +
theme(axis.title.x = element_text(margin = unit(c(.5, 0, 0, 0), "cm")))

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines")) +
theme(plot.background = element_rect(fill = '#D3D3D3')) +
theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
theme(plot.title.position = 'plot') +
theme(plot.title = element_markdown(size = 16,
face = 'bold',
color = '#525252',
lineheight = 1.2)) +
theme(plot.subtitle = element_textbox_simple(
size = 10,
lineheight = 1.2,
padding = margin(5.5, 5.5, 5.5, 5.5),
margin = margin(0, 0, 5.5, 0),
fill = '#CCCCCC')) +
theme(plot.caption = element_textbox_simple(
size = 9,
lineheight = 1.2,
margin = margin(20, 50, 0, 0),
fill = '#D3D3D3')) +
theme(axis.text = element_text(size = 12)) +
theme(axis.title = element_text(size = 12, face = 'bold', color = '#525252')) +
theme(axis.title.x = element_text(margin = unit(c(.5, 0, 0, 0), "cm"))) +
theme(axis.title.y = element_text(angle = 0, vjust = 1))

1 / 1
dat %>%
ggplot() +
geom_point(aes(x = cty, y = hwy, color = cyl_color),
alpha = 0.7, size = 2) +
scale_color_identity() +
facet_wrap(~ cyl_text) +
labs(
title = title,
subtitle = subtitle,
x = 'City MPG',
y = 'Highway\nMPG',
caption = caption
) +
theme_minimal() +
theme(legend.position = 'none') +
theme(text = element_text(family = 'Fira Code')) +
theme(panel.grid = element_blank()) +
theme(panel.spacing = unit(1, "lines")) +
theme(plot.background = element_rect(fill = '#D3D3D3')) +
theme(plot.margin = unit(c(.5,.75,.5,.75), 'cm')) +
theme(plot.title.position = 'plot') +
theme(plot.title = element_markdown(size = 16,
face = 'bold',
color = '#525252',
lineheight = 1.2)) +
theme(plot.subtitle = element_textbox_simple(
size = 10,
lineheight = 1.2,
padding = margin(5.5, 5.5, 5.5, 5.5),
margin = margin(0, 0, 5.5, 0),
fill = '#CCCCCC')) +
theme(plot.caption = element_textbox_simple(
size = 9,
lineheight = 1.2,
margin = margin(20, 50, 0, 0),
fill = '#D3D3D3')) +
theme(axis.text = element_text(size = 12)) +
theme(axis.title = element_text(size = 12, face = 'bold', color = '#525252')) +
theme(axis.title.x = element_text(margin = unit(c(.5, 0, 0, 0), "cm"))) +
theme(axis.title.y = element_text(angle = 0, vjust = 1)) +
theme(strip.text = element_markdown(size = 14))

`{.r .distill-force-highlighting-css}

<style type="text/css">
.remark-code{line-height: 1.5; font-size: 120%}
@media print {
.has-continuation {
display: block;
}
}
code.r.hljs.remark-code{
position: relative;
overflow-x: hidden;
}
code.r.hljs.remark-code:hover{
overflow-x:visible;
width: 500px;
border-style: solid;
}
</style>
```{.r .distill-force-highlighting-css}
1 / 1
dat %>%
ggplot()

1 / 1
Paused

Help

Keyboard shortcuts

, , Pg Up, k Go to previous slide
, , Pg Dn, Space, j Go to next slide
Home Go to first slide
End Go to last slide
Number + Return Go to specific slide
b / m / f Toggle blackout / mirrored / fullscreen mode
c Clone slideshow
p Toggle presenter mode
t Restart the presentation timer
?, h Toggle this help
Esc Back to slideshow