barspread

bar.spread = ggplot(data = spread,aes(x = sym, y = avg.spread, colour = "seagreen3", fill = "seagreen3")) + 
              geom_bar(width = 0.5, stat = "identity") +
              xlab("") + ylab("Average Spread (%)") + 
              geom_hline(yintercept = min(spread$avg.spread), linetype = "dashed", colour = "red") +
              geom_hline(yintercept = max(spread$avg.spread), linetype = "dashed", colour = "red") +
              geom_hline(yintercept = 0) +
              theme(
               legend.position = "none",
               axis.title = element_text(size = 10),
               axis.text = element_text(size = 9))
print(bar.spread)