Scatter plot with neat text lables using ggrepel

ggrepel_scatter.R

# Basic Name Plot
tax_plot <- ggplot(State_Infrastructure, aes(x=tax_burden, y=percent_bad_roads, label=State))
tax_state_names_plot <- tax_plot + geom_text_repel() + geom_point(color = 'red') + theme_classic(base_size = 16)

# OUTPUT
tax_state_names_plot + ggtitle("Road Conditions vs Tax Burden") +
  scale_x_continuous(name = "State and Local Tax Burden") +
  scale_y_continuous(name = "Percent of roads not in good condition")