heart

references:
- ISI, example 10.5a, p.553

library(tidyverse)

data

df <- read.csv("TempHeart.csv")
str(df)
## 'data.frame':    130 obs. of  2 variables:
##  $ BodyTemp : num  96.3 96.7 96.9 97 97.1 97.1 97.1 97.2 97.3 97.4 ...
##  $ HeartRate: int  70 71 74 80 73 75 82 64 69 70 ...

Scatterplot.

ggplot(df, aes(BodyTemp, HeartRate)) +
  geom_point(shape = 20, color = "darkred") +
  labs(title = "GPA")