Push the knit button!

library(tidyverse) # contains ggplot2, dplyr, tidyr, etc
library(agridat) # for `crampton.pig` data
library(catdata) # for `heart` data

crampton.pig dataset

glimpse(crampton.pig)
## Rows: 50
## Columns: 5
## $ treatment <fct> T1, T1, T1, T1, T1, T1, T1, T1, T1, T1, …
## $ rep       <fct> R1, R2, R3, R4, R5, R6, R7, R8, R9, R10,…
## $ weight1   <int> 30, 21, 21, 33, 27, 24, 20, 29, 28, 26, …
## $ feed      <int> 674, 628, 661, 694, 713, 585, 575, 638, …
## $ weight2   <int> 195, 177, 180, 200, 197, 170, 150, 180, …

Exercise 1.1: Scatterplot

# fill all ... and change eval = FALSE to eval = TRUE when done
ggplot(crampton.pig, aes(weight1, weight2, color = ..., size = ...)) + 
  geom_point()

Exercise 1.2: Tile plot