height

references:
- ISI, exploration 10.3, p.542

library(tidyverse)

data

df <- read.csv("FootHeight.csv", header = TRUE)
str(df)
## 'data.frame':    20 obs. of  2 variables:
##  $ footlength: num  32 24 29 30 24 26 27 29.5 26 26.5 ...
##  $ height    : int  74 66 77 67 56 65 64 70 62 67 ...

Scatterplot.

ggplot(df, aes(footlength, height)) +
  geom_point(shape = 20, color = "darkred") +
  labs(title = "Height")