Always look on the bright side of plots

Slide 1

Slide 1 text

@kara_woo rstudio::global(2021) always look on the bright side of plots

Slide 2

Slide 2 text

(clockwise from top le ft ): miles mcbain, alex hanna, noam ross, julia silge, jacqueline nolis, jarvis miller @accidental__aRt

Slide 3

Slide 3 text

sarah kilian

Slide 4

Slide 4 text

the prac ti cal dev, cc-by-nc 2.0

Slide 5

Slide 5 text

No content

Slide 6

Slide 6 text

No content

Slide 7

Slide 7 text

created with danielle navarro’s fl ametree package

Slide 8

Slide 8 text

mapping mishaps

Slide 9

Slide 9 text

aesthetics map visual properties to variables in your data

Slide 10

Slide 10 text

data from the palmerpenguins package by allison horst, alison hill, & kristen gorman

Slide 11

Slide 11 text

penguin_plot + geom_text( aes(x = 195, y = 55, label = "Chinstrap") )

Slide 12

Slide 12 text

No content

Slide 13

Slide 13 text

No content

Slide 14

Slide 14 text

library("ggrepel") penguin_plot + geom_text_repel( aes(x = 195, y = 55, label = "Chinstrap") )

Slide 15

Slide 15 text

No content

Slide 16

Slide 16 text

we’ve written “Chinstrap”   `r nrow(penguins)` times

Slide 17

Slide 17 text

we’ve written “Chinstrap” 344 times

Slide 18

Slide 18 text

penguin_plot + geom_text( aes(x = 195, y = 55, label = "Chinstrap") )

Slide 19

Slide 19 text

penguin_plot + annotate( geom = "text", x = 195, y = 55, label = "Chinstrap" )

Slide 20

Slide 20 text

No content

Slide 21

Slide 21 text

No content

Slide 22

Slide 22 text

No content

Slide 23

Slide 23 text

scale snafus

Slide 24

Slide 24 text

scales convert values from the data space to the aesthetic space

Slide 25

Slide 25 text

coordinate systems draw axes and panels

Slide 26

Slide 26 text

No content

Slide 27

Slide 27 text

penguin_plot + scale_x_continuous(limits = c(200, NA)) penguin_plot + coord_cartesian(xlim = c(200, NA))

Slide 28

Slide 28 text

No content

Slide 29

Slide 29 text

No content

Slide 30

Slide 30 text

scale transformation occurs before statistical summaries

Slide 31

Slide 31 text

setting coordinate limits zooms in the plot

Slide 32

Slide 32 text

No content

Slide 33

Slide 33 text

penguin_plot + scale_x_continuous(limits = c(200, NA)) penguin_plot + coord_cartesian(xlim = c(200, NA))

Slide 34

Slide 34 text

penguin_plot + scale_x_continuous(limits = c(200, NA)) #> Warning: Removed 192 rows containing non- finite values (stat_smooth). #> Warning: Removed 192 rows containing missing values (geom_point). penguin_plot + coord_cartesian(xlim = c(200, NA)) ⚠

Slide 35

Slide 35 text

theme threats

Slide 36

Slide 36 text

themes customize the look and feel of your plots

Slide 37

Slide 37 text

text

Slide 38

Slide 38 text

No content

Slide 39

Slide 39 text

text └── axis.text

Slide 40

Slide 40 text

No content

Slide 41

Slide 41 text

text └── axis.text └── axis.text.x │ │ └── axis.text.y

Slide 42

Slide 42 text

text └── axis.text └── axis.text.x │ └── axis.text.x.bottom │ └── axis.text.x.top └── axis.text.y └── axis.text.y.left └── axis.text.y.right

Slide 43

Slide 43 text

No content

Slide 44

Slide 44 text

penguin_plot + theme( axis.text.y = element_text( angle = 90, hjust = 1 ) )

Slide 45

Slide 45 text

No content

Slide 46

Slide 46 text

🤔

Slide 47

Slide 47 text

theme_grey #> function (…) #> { #> … #> axis.text.y = element_text(margin = margin(r = 0.8 * half_line/2), hjust = 1), #> axis.text.y.right = element_text(margin = margin(l = 0.8 * half_line/2), hjust = 0), #> … #> }

Slide 48

Slide 48 text

the most specific theme element wins

Slide 49

Slide 49 text

penguin_plot + theme( axis.text.y.left = element_text( angle = 90, hjust = 1 ), axis.text.y.right = element_text( angle = 90, hjust = 1 ) )