exercise

references:
- ISI, example 10.2, p.529

library(tidyverse)

data

df1 <- read.csv("ExerciseMood.csv")
str(df1)
## 'data.frame':    32 obs. of  2 variables:
##  $ exercise_intensity: num  72.2 76.1 68.3 61.6 59.5 73.9 70.3 66.4 65.6 69.7 ...
##  $ change_mood       : int  -31 -26 -24 -24 -24 -20 -18 -16 -12 -12 ...

Scatterplot.

ggplot(df1, aes(exercise_intensity, change_mood)) +
  geom_point(shape = 20, color = "darkred") +
  labs(title = "Exercise")