draft

references:
- ISI, exploration 10.2, p.533

library(tidyverse)

data

df <- read.delim("DraftLottery.txt", header = TRUE)
str(df)
## 'data.frame':    366 obs. of  2 variables:
##  $ sequential_date: int  1 2 3 4 5 6 7 8 9 10 ...
##  $ draft_number   : int  305 159 251 215 101 224 306 199 194 325 ...

Scatterplot.

ggplot(df, aes(sequential_date, draft_number)) +
  geom_point(shape = 20, color = "darkred") +
  labs(title = "Draft")