#-- 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 <- ggplot()
sp +
  scale_y_continuous(breaks = seq(30,35,1),
                     labels = c("Dotted","Dotdash","Twodash",
                                "Dashed","Longdash","Solid")) +
  geom_hline(yintercept = 35,size=1,linetype="solid") +
  geom_hline(yintercept = 34,size=1,linetype="longdash") +
  geom_hline(yintercept = 33,size=1,linetype="dashed") +
  geom_hline(yintercept = 32,size=1,linetype="twodash") +
  geom_hline(yintercept = 31,size=1,linetype="dotdash") +
  geom_hline(yintercept = 30,size=1,linetype="dotted") +
  theme_classic() +
  labs(y="\nLine Types\n") +
  theme(text = element_text(size = 12, colour="black"),
        axis.text.y = element_text(color="black",size=11),
        axis.line=element_blank()) 
  #scale_x_continuous(limits = c(15,36)) +
  #scale_y_discrete(breaks=seq(20,50,5))
ggsave(filename="./images/chap5/linetypes.pdf", width = 4.5,
       height = 3.8,units = "in")