library(tidyverse)
crackers.df <- read_csv("./data/chap5/crackers.csv")
extremes.df <- filter(crackers.df,y.post>40 | y.post<25)
sp <- ggplot(data=crackers.df,aes(x=x.pre,y=y.post))
sp + 
  geom_point(shape=16,size=3,color="darkgreen") +
  geom_text(data=extremes.df,aes(label=storeno),vjust=-1) +
  geom_text(aes(x=20,y=45,label="Labels are store numbers"),
            color="black") +
  theme_classic() +
  theme(text = element_text(size = 13, colour="blue"),
        axis.text.x= element_text(face="bold",colour="red",
                                  angle=45),
        axis.text.y= element_text(colour="purple",size=14),
        plot.title = element_text(size = 15,color="darkred",
                                  hjust=-0.5),
        axis.line = element_line(
          size=0.75,
          linetype = "solid",
          color = "black",
          arrow = arrow(type="closed",length = unit(8,'pt')))) + 
  scale_x_continuous(limits = c(15,36),
                     breaks = c(15,20,22,25,30,35))+
  scale_y_continuous(limits = c(20,47),
                     breaks = seq(20,45,5)) +
  labs(title = "Figure 1: Scatterplot of crackers sold\n", 
       x="\nCracker boxes sold before promotion\n",
       y="\nCracker boxes sold during promotion\n")
ggsave(filename="./images/chap5/crackersfancy.pdf",
       width = 5.0,height = 3.8,units = "in")