y = 1)) +
  scale_color_manual(values = c("Black" = "#1b9e77", "White" = "#d95f02")) +
  labs(
    title = "Predicted Arrest Probability by Race, Zone, and Sex",
    subtitle = "Black drivers face higher arrest rates across zones, especially among males",
    x = "Zone",
    y = "Predicted Probability of Arrest",
    caption = "Source: New Orleans Traffic Stops Dataset"
  ) +
  theme_minimal(base_size = 13) +
  theme(
    plot.title = element_text(face = "bold", size = 16),
    plot.subtitle = e