smoking

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

library(tidyverse)

data

df <- read.delim("AlcoholSmoke.txt", header = TRUE)
str(df)
## 'data.frame':    863 obs. of  2 variables:
##  $ Alcohol_Drinks: int  0 2 0 3 3 0 3 0 0 3 ...
##  $ Smoked        : int  0 0 0 0 0 0 0 0 0 0 ...

Scatterplot.

 ggplot(df, aes(Alcohol_Drinks, Smoked)) + 
  geom_jitter(shape = 20, color = "darkred") + 
  labs(title = "Smoking and Drinking")