text: Q:
  
  Try to draw a line with abline?
  
  ggplot(G, aes(x = State, y = Score, fill = State)) +
      geom_bar(stat = "identity", position = "identity", width = 0.5) + 
      scale_y_continuous(labels = scales::comma) + 
      coord_flip()
  
  This the code I am using and I am trying to add a line at the score of 236 so how to do it and how to improve the chart in general and any edit or suggestion are always welcome.  
  
  A:
  
  Just use:
  geom_hline(yintercept = 236)
  
  Might be worth while to reorder your y axis and use fill = Score. It would make the plot look something like this:
  df %>% 
    ggplot(aes(reorder(State, -Assault), Assault, fill = Assault)) +
    geom_col(width = 0.75, aes(fill = Assault)) +
    labs(x = "State") +
    geom_hline(yintercept = 200, size = 1) +
    coord_flip() +
    theme_classic()
  
  