library(tidyverse)
setwd("C:/Users/GWET-ASUS-14/Documents/Books/xls2R/")
d=data.frame(lt=c("blank", "solid", "dashed", "dotted", "dotdash", 
                  "longdash", "twodash", "1F", "F1", "4C88C488", "12345678"))
ggplot() +
  scale_x_continuous(name="", limits=c(0,1), breaks=NULL) +
  scale_y_discrete(name="Line Type") +
  scale_linetype_identity() +
  geom_segment(data=d, size=1, 
               mapping = aes(x=0, xend=1, 
                             y=lt, yend=lt, 
                             linetype=lt)) +
  theme_classic() +
  theme(text = element_text(size = 12, colour="black"),
        axis.text.y = element_text(color="black",size=11),
        axis.line=element_blank())
ggsave(filename="./images/chap5/linetypes.pdf", width = 4.5,
       height = 3.8,units = "in")