p<-ggplot(tchart, aes(x = beatenLengths,y = OffRail)) +
  geom_point() + 
  geom_label(aes(label=pgm, fill= as.factor(pgm), color= as.factor(pgm)),  size = 3.0) +
  geom_convexhull(alpha = 0.2, fill = "blue") +
  scale_fill_manual(values = c("#ec2c28","#FFFFFF","#1d4fa3","#EAE824","#458544","#060103","#EFA428","#f9bcc5", "#1FB8D7","#9A4687","#C2C2C2","#a9d5b5")) +
  scale_color_manual(values = c("#FFFFFF", "#000000", "#FFFFFF", "#000000", "#FFFFFF", "#EAE824", "#000000", "#000000","#000000","#FFFFFF","#000000","#000000")) +
  facet_wrap(~ Sixteenth, ncol=4) +
  theme_fivethirtyeight() +
  theme(legend.position = "none") 
  


p + labs(title = title,
         subtitle="Race 1 - 6.5 Furlongs, Dirt",
         caption = "Data Source: Trakus, Inc.")