diff --git a/slides/Wilke-theme.scss b/slides/Wilke-theme.scss
index 5dbea57..22b556f 100644
--- a/slides/Wilke-theme.scss
+++ b/slides/Wilke-theme.scss
@@ -14,13 +14,29 @@ $font-family-sans-serif: 'Lato', Arial, sans-serif;
$font-family-monospace: 'Roboto Mono', 'Lucida Console', Monaco, Consolas, monospace;
$presentation-heading-font: 'Roboto Condensed', 'Arial Narrow OS', Arial, sans-serif;
$presentation-font-size-root: 26px;
-$presentation-h1-font-size: 2.5em;
+$presentation-h1-font-size: 2em;
$presentation-h2-font-size: 2em;
$presentation-h3-font-size: 1.6em;
$presentation-h4-font-size: 1.6em;
$presentation-heading-font-weight: 400;
$code-block-font-size: 0.86em;
-.small-font { font-size: 0.86em !important; }
-.tiny-font { font-size: 0.66em !important; }
-.xtiny-font { font-size: 0.60em !important; }
+.small-font { font-size: 0.86em; }
+.tiny-font { font-size: 0.66em; }
+.xtiny-font { font-size: 0.60em; }
+
+.reveal h1 {
+ color: red;
+ text-align: center;
+ margin: 0 !important;
+}
+
+/* Make inline code slightly smaller; prevents vertical jumps
+ from slides with to slides without inline code.
+
+ Inline code is not a child of
, hence the not selector.
+*/
+
+.reveal code:not(pre > code) {
+ font-size: 0.94em; line-height: 1.0;
+}
diff --git a/slides/aesthetic-mappings.qmd b/slides/aesthetic-mappings.qmd
index 809c5de..3dbff5d 100644
--- a/slides/aesthetic-mappings.qmd
+++ b/slides/aesthetic-mappings.qmd
@@ -1,12 +1,13 @@
---
title: "Aesthetic mappings"
+author: "Claus O. Wilke"
format:
revealjs:
theme:
- default
- Wilke-theme.scss
+ auto-stretch: false
execute:
- fig-dpi: 600
fig-format: svg
fig-asp: 0.618
fig-width: 5.5
@@ -19,8 +20,9 @@ library(cowplot)
library(colorspace)
# ggplot2 settings so plots scale well for slide size
-theme_set(theme_gray(16)) # 16 for full width, 18 for half width
-update_geom_defaults("point", list(size = 2)) # 2 for full width, 2.5 for half width
+theme_set(theme_gray(14))
+update_geom_defaults("point", list(size = 2))
+update_geom_defaults("line", list(linewidth = 1))
# this function should be added to cowplot
align_legend <- function(p, hjust = 0.5)
@@ -60,7 +62,7 @@ align_legend <- function(p, hjust = 0.5)
# Plots map data onto graphical elements
-## Dataset:
Daily average temperatures for various locations
+## Dataset:
Daily average temperatures for various locations {.scrollable}
::: {.small-font}
```{r echo=FALSE, message=FALSE}
@@ -73,11 +75,137 @@ temps_long <- read_csv("https://wilkelab.org/SDS375/datasets/tempnormals.csv") |
temps_long |>
select(location, day_of_year, month, temperature) |>
- head(n = 15L) |>
+ #head(n = 15L) |>
knitr::kable("html")
```
:::
+## Temperatures mapped onto y position
+
+```{r}
+#| label: temp-normals-vs-time
+#| echo: false
+#| message: false
+#| fig-width: 7
+#| fig-cap: " "
+#| out-width: "80%"
+ggplot(temps_long, aes(x = date, y = temperature, color = location)) +
+ geom_line(linewidth = 1) +
+ scale_x_date(
+ name = "month",
+ limits = c(ymd("0000-01-01"), ymd("0001-01-04")),
+ breaks = c(
+ ymd("0000-01-01"), ymd("0000-04-01"), ymd("0000-07-01"),
+ ymd("0000-10-01"), ymd("0001-01-01")
+ ),
+ labels = c("Jan", "Apr", "Jul", "Oct", "Jan"), expand = c(1/366, 0)
+ ) +
+ scale_y_continuous(
+ limits = c(19.9, 107),
+ breaks = seq(20, 100, by = 20),
+ name = "temperature (°F)"
+ ) +
+ scale_color_manual(
+ name = NULL,
+ values = c("#E69F00", "#56B4E9", "#009E73", "#CC79A7")
+ ) +
+ theme_minimal_grid(16)
+```
+
+## Temperatures mapped onto color
+
+
+
+```{r}
+#| label: four-locations-temps-by-month
+#| echo: false
+#| message: false
+#| fig-width: 8.5
+#| fig-asp: 0.3
+#| fig-cap: " "
+#| out-width: "100%"
+
+mean_temps <- temps_long %>%
+ group_by(location, month_name) %>%
+ summarize(mean = mean(temperature)) %>%
+ mutate(
+ month_name = factor(
+ month_name,
+ levels = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
+ )
+ )
+
+ggplot(mean_temps, aes(x = month_name, y = location, fill = mean)) +
+ geom_tile(width = .95, height = 0.95) +
+ scale_fill_viridis_c(
+ option = "B", begin = 0.15, end = 0.98,
+ name = "temperature (°F)"
+ ) +
+ scale_x_discrete(name = "month") +
+ scale_y_discrete(name = NULL) +
+ coord_fixed(expand = FALSE) +
+ theme_half_open(16) +
+ theme(
+ axis.line = element_blank(),
+ axis.ticks = element_blank(),
+ legend.title = element_text(size = 14, hjust = 0.5)
+ )
+```
+
+## Commonly used aesthetics
+
+{width=90% fig-align="center"}
+
+## The same data values can be mapped to different aesthetics
+
+{width=90% fig-align="center"}
+
+## We can use many different aesthetics at once
+
+```{r}
+#| label: mtcars-five-scale
+#| echo: false
+#| message: false
+#| fig-width: 6
+#| fig-asp: 0.8
+#| fig-cap: " "
+#| out-width: "60%"
+ggplot(mtcars, aes(disp, mpg, fill = hp, shape = factor(cyl), size = wt)) +
+ geom_point(color = "white") +
+ scale_shape_manual(values = c(23, 24, 21), name = "cylinders") +
+ scale_fill_continuous_sequential(
+ palette = "Emrld", name = "power (hp)",
+ breaks = c(100, 200, 300),
+ rev = FALSE
+ ) +
+ xlab("displacement (cu. in.)") +
+ ylab("fuel efficiency (mpg)") +
+ guides(
+ fill = guide_colorbar(order = 1),
+ shape = guide_legend(
+ override.aes = list(size = 4, fill = "#329D84"),
+ order = 3
+ ),
+ size = guide_legend(
+ override.aes = list(shape = 21, fill = "#329D84"),
+ title = "weight (1000 lbs)",
+ order = 2
+ )
+ ) +
+ theme_half_open(14) + background_grid() +
+ theme(
+ legend.box.background = element_rect(fill = "white", color = "white"),
+ legend.position = "inside",
+ legend.position.inside = c(1, 1),
+ legend.justification = c(1, 1),
+ legend.direction = "vertical",
+ legend.box = "horizontal",
+ legend.box.margin = margin(7, 7, 7, 7)
+ )
+```
+
+
+
# Creating aesthetic mappings in ggplot
@@ -102,10 +230,196 @@ temperatures <- read_csv("https://wilkelab.org/SDS375/datasets/tempnormals.csv")
## We define the mapping with `aes()`
```{r}
+#| label: ggplot-temps-example
#| echo: true
+#| fig-cap: " "
+#| out-width: "65%"
ggplot(
data = temperatures,
mapping = aes(x = day_of_year, y = temperature, color = location)
) +
geom_line()
```
+
+## We define the mapping with `aes()`
+
+```{r}
+#| label: ggplot-temps-example2
+#| echo: true
+#| fig-width: 7.86 # = 5.5*6/4.2
+#| fig-asp: 0.3
+#| fig-cap: " "
+#| out-width: "85%"
+ggplot(
+ data = temperatures,
+ mapping = aes(x = day_of_year, y = location, color = temperature)
+) +
+ geom_point(size = 5)
+```
+
+## We frequently omit argument names
+
+Long form, all arguments are named:
+
+```r
+ggplot(
+ data = temperatures,
+ mapping = aes(x = day_of_year, y = location, color = temperature)
+) + geom_point(size = 5)
+```
+
+. . .
+
+
+
+Abbreviated form, common arguments remain unnamed:
+
+```r
+ggplot(temperatures, aes(day_of_year, location, color = temperature)) +
+ geom_point(size = 5)
+```
+
+## The geom determines how the data is shown
+
+```{r}
+#| label: ggplot-temps-example5
+#| echo: true
+#| fig-cap: " "
+#| out-width: "65%"
+ggplot(temperatures, aes(day_of_year, temperature, color = location)) +
+ geom_line()
+```
+
+## The geom determines how the data is shown
+
+```{r}
+#| label: ggplot-temps-example6
+#| echo: true
+#| fig-width: 7.86 # = 5.5*6/4.2
+#| fig-asp: 0.3
+#| fig-cap: " "
+#| out-width: "85%"
+ggplot(temperatures, aes(day_of_year, location, color = temperature)) +
+ geom_point(size = 5)
+```
+
+## The geom determines how the data is shown
+
+```{r}
+#| label: ggplot-temps-example7
+#| echo: true
+#| fig-width: 6.5
+#| fig-asp: 0.6
+#| fig-cap: " "
+#| out-width: "80%"
+ggplot(temperatures, aes(month, temperature, color = location)) +
+ geom_boxplot()
+```
+
+## The geom determines how the data is shown
+
+```{r}
+#| label: ggplot-temps-example8
+#| echo: true
+#| fig-width: 9
+#| fig-asp: 0.44
+#| fig-cap: " "
+#| out-width: "90%"
+ggplot(temperatures, aes(month, temperature, fill = location)) +
+ geom_violin() +
+ facet_wrap(~location) # make separate panel per location
+```
+
+
+
+# Important: Distinguish between `color` and `fill`
+
+## Distinguish between `color` and `fill`
+
+
+
+`color`
+Applies color to points, lines, text, borders
+
+. . .
+
+
+
+`fill`
+Applies color to any filled areas
+
+
+## Many geoms use both `color` and `fill`
+
+```{r}
+#| label: ggplot-color-fill
+#| echo: true
+#| fig-width: 6.5
+#| fig-asp: 0.6
+#| fig-cap: " "
+#| out-width: "80%"
+ggplot(temperatures, aes(month, temperature, color = location)) +
+ geom_boxplot()
+```
+
+## Many geoms use both `color` and `fill`
+
+```{r}
+#| label: ggplot-color-fill2
+#| echo: true
+#| fig-width: 6.5
+#| fig-asp: 0.6
+#| fig-cap: " "
+#| out-width: "80%"
+ggplot(temperatures, aes(month, temperature, fill = location)) +
+ geom_boxplot()
+```
+
+## Many geoms use both `color` and `fill`
+
+```{r}
+#| label: ggplot-color-fill3
+#| echo: true
+#| fig-width: 6.5
+#| fig-asp: 0.6
+#| fig-cap: " "
+#| out-width: "80%"
+ggplot(temperatures, aes(month, temperature, color = location, fill = location)) +
+ geom_boxplot()
+```
+
+## Aesthetics can also be used as parameters
+
+```{r}
+#| label: ggplot-color-fill-params
+#| echo: true
+#| fig-width: 6.5
+#| fig-asp: 0.6
+#| fig-cap: " "
+#| out-width: "80%"
+ggplot(temperatures, aes(month, temperature, fill = location)) +
+ geom_boxplot(color = "steelblue")
+```
+
+## Aesthetics can also be used as parameters
+
+```{r}
+#| label: ggplot-color-fill-params2
+#| echo: true
+#| fig-width: 6.5
+#| fig-asp: 0.6
+#| fig-cap: " "
+#| out-width: "80%"
+ggplot(temperatures, aes(month, temperature, color = location)) +
+ geom_boxplot(fill = "steelblue")
+```
+
+
+
+## Further reading
+
+- Fundamentals of Data Visualization: [Chapter 2: Visualizing data](https://clauswilke.com/dataviz/aesthetic-mapping.html)
+- Data Visualization—A Practical Introduction: [Chapter 3: Make a plot](https://socviz.co/makeplot.html#makeplot)
+- [**ggplot2** reference documentation](https://ggplot2.tidyverse.org/reference/index.html)
+- [**ggplot2** book](https://ggplot2-book.org/)
+- [**ggplot2** cheatsheet](https://raw.githubusercontent.com/rstudio/cheatsheets/main/data-visualization.pdf)
diff --git a/slides/notes.txt b/slides/notes.txt
new file mode 100644
index 0000000..6690c57
--- /dev/null
+++ b/slides/notes.txt
@@ -0,0 +1,3 @@
+Figure sizing and placement
+
+https://github.com/quarto-dev/quarto-cli/issues/7516
\ No newline at end of file
