#-- crackers data: simple line plot  ---

library(tidyverse)
crackers.df <- read_csv("./data/chap5/crackers.csv")
sp <- ggplot(data=crackers.df,aes(x=x.pre,y=y.post))
sp + 
  geom_line(size=1) +
  theme_classic() +
  theme(text = element_text(size = 12, colour="black"),
        axis.line = element_line(
          arrow = arrow(type="closed",length = unit(8,'pt')))) + 
  scale_x_continuous(limits = c(15,36)) +
  scale_y_continuous(limits = c(15,52),breaks=seq(15,50,5)) +
  labs(x="\nCracker boxes sold before promotion\n",
       y="\nCracker boxes sold during promotion\n")
ggsave(filename="./images/chap5/lineplot.pdf", width = 4.5,
       height = 3.8,units = "in")