auction

references:
- ISI, exploration 7.3, p.405

library(tidyverse)

data

auction <- read.delim("Auction.txt")
str(auction)
## 'data.frame':    88 obs. of  2 variables:
##  $ dutch: num  25 24 26 20 20 15 5 2 3.2 3.4 ...
##  $ FP   : num  26.2 25.2 27 20.8 20.8 ...
auction <- auction %>%
  mutate(diff = dutch - FP)
str(auction)
## 'data.frame':    88 obs. of  3 variables:
##  $ dutch: num  25 24 26 20 20 15 5 2 3.2 3.4 ...
##  $ FP   : num  26.2 25.2 27 20.8 20.8 ...
##  $ diff : num  -1.25 -1.25 -1 -0.75 -0.75 -0.25 -0.25 -0.25 -0.25 -0.2 ...

data in long format

price <- c(auction$dutch, auction$FP)
type <- c(rep("dutch", nrow(auction)), rep("FP", nrow(auction)))
auction.long <- data.frame(type, price)
str(auction.long)
## 'data.frame':    176 obs. of  2 variables:
##  $ type : Factor w/ 2 levels "dutch","FP": 1 1 1 1 1 1 1 1 1 1 ...
##  $ price: num  25 24 26 20 20 15 5 2 3.2 3.4 ...

dot plots

ggplot(auction.long, aes(price)) +
  geom_dotplot(fill = "darkred", dotsize = 0.5) +
  facet_grid(type ~ .) +
  labs(title = "Auctions")