GPA

references:
- ISI, example 10.4, p.547

library(tidyverse)

data

df <- read.csv("GPA.csv")
str(df)
## 'data.frame':    42 obs. of  2 variables:
##  $ hours: num  7.7 18.9 19.4 34.7 42.8 42.8 45.6 76.6 96.7 60.6 ...
##  $ gpa  : num  3.17 3.28 3.72 3.38 3.17 2.87 2.67 1.87 1.98 2.66 ...

Scatterplot.

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