plates

references:
- ISI, exploration 10.1, p.525, and example 10.3, p.538

library(tidyverse)

data

df <- read.csv("PlateSize.csv")
str(df)
## 'data.frame':    20 obs. of  2 variables:
##  $ year: int  1950 1956 1957 1958 1963 1964 1969 1974 1975 1978 ...
##  $ size: num  10 10.8 10.1 10 10.6 ...

Scatterplot.

ggplot(df, aes(year, size)) +
  geom_point(shape = 20, color = "darkred") +
  labs(title = "Plate Size")