kelly-sovacool/code_club_2020-05-04.Rmd

## code_club_2020-05-04.md

      
    Raw
  

              code_club_2020-05-04.md
            
          
    2020-05-04
Pat’s code club on ggplot themes

library(tidyverse)
library(ggthemes)

mtcars2 <- within(mtcars, {
    vs <- factor(vs, labels = c("V-shaped", "Straight"))
    am <- factor(am, labels = c("Automatic", "Manual"))
    cyl  <- factor(cyl)
    gear <- factor(gear)
})

p1 <- ggplot(mtcars2) +
    geom_point(aes(x = wt, y = mpg, colour = gear)) +
    labs(title = "Fuel economy declines as weight increases",
             subtitle = "(1973-74)",
             caption = "Data from the 1974 Motor Trend US magazine.",
             tag = "Figure 1",
             x = "Weight (1000 lbs)",
             y = "Fuel economy (mpg)",
             colour = "Gears")

p1

p1 + theme_gray() # the default

p1 + theme_bw()

p1 + theme_linedraw()

p1 + theme_light()

p1 + theme_dark()

p1 + theme_minimal()

p1 + theme_classic()

p1 + theme_void()

p1 + theme_economist() # https://yutannihilation.github.io/allYourFigureAreBelongToUs/ggthemes/

p1 + theme_excel()

p1 + theme_fivethirtyeight()

(checkout the xkcd theme package!)
You can manipulate a lot in a figure withough needing to go deep into
the theme options
p1 + theme_classic()

p1 + theme_classic(base_size = 20) #a number, default = 11

p1 + theme_classic(base_family = "mono") #a font family, default = sans (serif, mono, symbol); see extrafont package

p1 + theme_classic(base_line_size = 2) #a number, size for line elements, default = base_size/22

p2 <- p1 + facet_grid(vs ~ am) 
p2 + theme_classic()

p2 + theme_classic(base_rect_size = 2) #a number, size for rectangular elements, default = base_size/22

p2 + theme_classic(base_rect_size = 0) #a number, size for rectangular elements, default = base_size/22

theme function - allows you to manipulate everything on the plot
?theme # look at the "Arguments" section for and easier view of the various things you can manipulate

# Generally a heirarchy to how they're named (they are listed alphabetically not by level of figure)
# * the first word indicates what gets manipulated (e.g. plot, legend, etc)
# * the second word indicates what about the first word gets manipulated (e.g. plot.background)
# * the third word indicateds a finer level of specificity (e.g. legend.box.background)
# * sometimes the third word overwrites what happens with the second word (e.g. axis.title vs axis.title.x)

# When setting the values for the theme parameters for some arguments they take
# a character or logical value. More frequently they take one of five functions 
# 
# margin(t = 0, r = 0, b = 0, l = 0, unit = "pt") #points is default
# 
# element_blank()
# 
# element_rect(fill = NULL, colour = NULL, size = NULL,
#                        linetype = NULL, color = NULL, inherit.blank = FALSE)
# 
# element_line(colour = NULL, size = NULL, linetype = NULL,
#                        lineend = NULL, color = NULL, arrow = NULL,
#                        inherit.blank = FALSE)
# 
# element_text(family = NULL, face = NULL, colour = NULL,
#                        size = NULL, hjust = NULL, vjust = NULL, angle = NULL,
#                        lineheight = NULL, color = NULL, margin = NULL, debug = NULL,
#                        inherit.blank = FALSE)
# 
# unit(x, units) # see ?grid::unit for various units
#
# Arguments
#   fill / color / colour ~ colors
#   linetype = integer (0:8), name of line type, hexidecimal coding
#   linend = round, butt, square
#   arrow = see ?grid::arrow
#   face = plain, italic, bold, bold.italic
#   hjust = 0,1 - horizontal justification (0 left, 0.5 center, 1 right justification)
#   vjust = 0,1 - vertical justification (0 top, 0,5 center, 1, bottom)

p1 +
    theme_classic() +
    theme(plot.title = element_text(color="red", family="mono", size=18),
                axis.title = element_text(color="blue"),
                axis.title.x = element_text(size = 20),
                legend.background = element_rect(color="black", fill=NA),
                plot.background = element_rect(fill="lightgray"),
                panel.grid.major.y = element_line(),
                panel.background = element_rect("pink"))

Assignment


Without using theme_xxxxxx functions, make p1 look like p1 + theme_classic() using theme
Pick a theme from ggthemes and recreate it using theme().

NOTE: No cheating. Cheating = running theme_classic at the prompt
without the ()
# original
p1

# theme classic
p1 + theme_classic()

# our attempt
p1 + theme(panel.background = element_rect(fill = "white"),
           axis.line = element_line(color = "black"),
           legend.key = element_rect(fill = NA))

# theme void
p1 + theme_void()

# our attempt
p1 + theme()


## code_club_2020-05-04.Rmd
---
date: "2020-05-04"
output:
    github_document:
        html_preview: false
---
```{r, include=FALSE}
knitr::opts_chunk$set(fig.path = here::here())
```

# Pat's code club on ggplot themes

```{r}
library(tidyverse)
library(ggthemes)

mtcars2 <- within(mtcars, {
	vs <- factor(vs, labels = c("V-shaped", "Straight"))
	am <- factor(am, labels = c("Automatic", "Manual"))
	cyl  <- factor(cyl)
	gear <- factor(gear)
})

p1 <- ggplot(mtcars2) +
	geom_point(aes(x = wt, y = mpg, colour = gear)) +
	labs(title = "Fuel economy declines as weight increases",
			 subtitle = "(1973-74)",
			 caption = "Data from the 1974 Motor Trend US magazine.",
			 tag = "Figure 1",
			 x = "Weight (1000 lbs)",
			 y = "Fuel economy (mpg)",
			 colour = "Gears")

p1
p1 + theme_gray() # the default
p1 + theme_bw()
p1 + theme_linedraw()
p1 + theme_light()
p1 + theme_dark()
p1 + theme_minimal()
p1 + theme_classic()
p1 + theme_void()
p1 + theme_economist() # https://yutannihilation.github.io/allYourFigureAreBelongToUs/ggthemes/
p1 + theme_excel()
p1 + theme_fivethirtyeight()
```

(checkout the xkcd theme package!)

You can manipulate a lot in a figure withough needing to go deep into the theme options

```{r}
p1 + theme_classic()
p1 + theme_classic(base_size = 20) #a number, default = 11
p1 + theme_classic(base_family = "mono") #a font family, default = sans (serif, mono, symbol); see extrafont package
p1 + theme_classic(base_line_size = 2) #a number, size for line elements, default = base_size/22

p2 <- p1 + facet_grid(vs ~ am)
p2 + theme_classic()
p2 + theme_classic(base_rect_size = 2) #a number, size for rectangular elements, default = base_size/22
p2 + theme_classic(base_rect_size = 0) #a number, size for rectangular elements, default = base_size/22
```

theme function - allows you to manipulate everything on the plot

```{r}
?theme # look at the "Arguments" section for and easier view of the various things you can manipulate

# Generally a heirarchy to how they're named (they are listed alphabetically not by level of figure)
# * the first word indicates what gets manipulated (e.g. plot, legend, etc)
# * the second word indicates what about the first word gets manipulated (e.g. plot.background)
# * the third word indicateds a finer level of specificity (e.g. legend.box.background)
# * sometimes the third word overwrites what happens with the second word (e.g. axis.title vs axis.title.x)

# When setting the values for the theme parameters for some arguments they take
# a character or logical value. More frequently they take one of five functions
#
# margin(t = 0, r = 0, b = 0, l = 0, unit = "pt") #points is default
#
# element_blank()
#
# element_rect(fill = NULL, colour = NULL, size = NULL,
# 						 linetype = NULL, color = NULL, inherit.blank = FALSE)
#
# element_line(colour = NULL, size = NULL, linetype = NULL,
# 						 lineend = NULL, color = NULL, arrow = NULL,
# 						 inherit.blank = FALSE)
#
# element_text(family = NULL, face = NULL, colour = NULL,
# 						 size = NULL, hjust = NULL, vjust = NULL, angle = NULL,
# 						 lineheight = NULL, color = NULL, margin = NULL, debug = NULL,
# 						 inherit.blank = FALSE)
#
# unit(x, units) # see ?grid::unit for various units
#
# Arguments
# 	fill / color / colour ~ colors
# 	linetype = integer (0:8), name of line type, hexidecimal coding
# 	linend = round, butt, square
# 	arrow = see ?grid::arrow
# 	face = plain, italic, bold, bold.italic
# 	hjust = 0,1 - horizontal justification (0 left, 0.5 center, 1 right justification)
# 	vjust = 0,1 - vertical justification (0 top, 0,5 center, 1, bottom)

p1 +
	theme_classic() +
	theme(plot.title = element_text(color="red", family="mono", size=18),
				axis.title = element_text(color="blue"),
				axis.title.x = element_text(size = 20),
				legend.background = element_rect(color="black", fill=NA),
				plot.background = element_rect(fill="lightgray"),
				panel.grid.major.y = element_line(),
				panel.background = element_rect("pink"))
```

## Assignment

1. Without using `theme_xxxxxx` functions, make `p1` look like `p1 + theme_classic()` using `theme`
2. Pick a theme from ggthemes and recreate it using `theme()`.

NOTE: No cheating. Cheating = running `theme_classic` at the prompt without the `()`

```{r classic}
# original
p1
# theme classic
p1 + theme_classic()
# our attempt
p1 + theme(panel.background = element_rect(fill = "white"),
           axis.line = element_line(color = "black"),
           legend.key = element_rect(fill = NA))
```

```{r}
# theme void
p1 + theme_void()
# our attempt
p1 + theme()
```


## code_club_2020-05-04.Rproj
Version: 1.0

RestoreWorkspace: Default
SaveWorkspace: Default
AlwaysSaveHistory: Default

EnableCodeIndexing: Yes
UseSpacesForTab: Yes
NumSpacesForTab: 4
Encoding: UTF-8

RnwWeave: Sweave
LaTeX: pdfLaTeX

AutoAppendNewline: Yes
StripTrailingWhitespace: Yes
	---
	date: "2020-05-04"
	output:
	github_document:
	html_preview: false
	---
	```{r, include=FALSE}
	knitr::opts_chunk$set(fig.path = here::here())
	```

	# Pat's code club on ggplot themes

	```{r}
	library(tidyverse)
	library(ggthemes)

	mtcars2 <- within(mtcars, {
	vs <- factor(vs, labels = c("V-shaped", "Straight"))
	am <- factor(am, labels = c("Automatic", "Manual"))
	cyl <- factor(cyl)
	gear <- factor(gear)
	})

	p1 <- ggplot(mtcars2) +
	geom_point(aes(x = wt, y = mpg, colour = gear)) +
	labs(title = "Fuel economy declines as weight increases",
	subtitle = "(1973-74)",
	caption = "Data from the 1974 Motor Trend US magazine.",
	tag = "Figure 1",
	x = "Weight (1000 lbs)",
	y = "Fuel economy (mpg)",
	colour = "Gears")

	p1
	p1 + theme_gray() # the default
	p1 + theme_bw()
	p1 + theme_linedraw()
	p1 + theme_light()
	p1 + theme_dark()
	p1 + theme_minimal()
	p1 + theme_classic()
	p1 + theme_void()
	p1 + theme_economist() # https://yutannihilation.github.io/allYourFigureAreBelongToUs/ggthemes/
	p1 + theme_excel()
	p1 + theme_fivethirtyeight()
	```

	(checkout the xkcd theme package!)

	You can manipulate a lot in a figure withough needing to go deep into the theme options

	```{r}
	p1 + theme_classic()
	p1 + theme_classic(base_size = 20) #a number, default = 11
	p1 + theme_classic(base_family = "mono") #a font family, default = sans (serif, mono, symbol); see extrafont package
	p1 + theme_classic(base_line_size = 2) #a number, size for line elements, default = base_size/22

	p2 <- p1 + facet_grid(vs ~ am)
	p2 + theme_classic()
	p2 + theme_classic(base_rect_size = 2) #a number, size for rectangular elements, default = base_size/22
	p2 + theme_classic(base_rect_size = 0) #a number, size for rectangular elements, default = base_size/22
	```

	theme function - allows you to manipulate everything on the plot

	```{r}
	?theme # look at the "Arguments" section for and easier view of the various things you can manipulate

	# Generally a heirarchy to how they're named (they are listed alphabetically not by level of figure)
	# * the first word indicates what gets manipulated (e.g. plot, legend, etc)
	# * the second word indicates what about the first word gets manipulated (e.g. plot.background)
	# * the third word indicateds a finer level of specificity (e.g. legend.box.background)
	# * sometimes the third word overwrites what happens with the second word (e.g. axis.title vs axis.title.x)

	# When setting the values for the theme parameters for some arguments they take
	# a character or logical value. More frequently they take one of five functions
	#
	# margin(t = 0, r = 0, b = 0, l = 0, unit = "pt") #points is default
	#
	# element_blank()
	#
	# element_rect(fill = NULL, colour = NULL, size = NULL,
	# linetype = NULL, color = NULL, inherit.blank = FALSE)
	#
	# element_line(colour = NULL, size = NULL, linetype = NULL,
	# lineend = NULL, color = NULL, arrow = NULL,
	# inherit.blank = FALSE)
	#
	# element_text(family = NULL, face = NULL, colour = NULL,
	# size = NULL, hjust = NULL, vjust = NULL, angle = NULL,
	# lineheight = NULL, color = NULL, margin = NULL, debug = NULL,
	# inherit.blank = FALSE)
	#
	# unit(x, units) # see ?grid::unit for various units
	#
	# Arguments
	# fill / color / colour ~ colors
	# linetype = integer (0:8), name of line type, hexidecimal coding
	# linend = round, butt, square
	# arrow = see ?grid::arrow
	# face = plain, italic, bold, bold.italic
	# hjust = 0,1 - horizontal justification (0 left, 0.5 center, 1 right justification)
	# vjust = 0,1 - vertical justification (0 top, 0,5 center, 1, bottom)

	p1 +
	theme_classic() +
	theme(plot.title = element_text(color="red", family="mono", size=18),
	axis.title = element_text(color="blue"),
	axis.title.x = element_text(size = 20),
	legend.background = element_rect(color="black", fill=NA),
	plot.background = element_rect(fill="lightgray"),
	panel.grid.major.y = element_line(),
	panel.background = element_rect("pink"))
	```

	## Assignment

	1. Without using `theme_xxxxxx` functions, make `p1` look like `p1 + theme_classic()` using `theme`
	2. Pick a theme from ggthemes and recreate it using `theme()`.

	NOTE: No cheating. Cheating = running `theme_classic` at the prompt without the `()`

	```{r classic}
	# original
	p1
	# theme classic
	p1 + theme_classic()
	# our attempt
	p1 + theme(panel.background = element_rect(fill = "white"),
	axis.line = element_line(color = "black"),
	legend.key = element_rect(fill = NA))
	```

	```{r}
	# theme void
	p1 + theme_void()
	# our attempt
	p1 + theme()
	```
	Version: 1.0

	RestoreWorkspace: Default
	SaveWorkspace: Default
	AlwaysSaveHistory: Default

	EnableCodeIndexing: Yes
	UseSpacesForTab: Yes
	NumSpacesForTab: 4
	Encoding: UTF-8

	RnwWeave: Sweave
	LaTeX: pdfLaTeX

	AutoAppendNewline: Yes
	StripTrailingWhitespace: Yes