ops_logistic, conf.int = TRUE) |&gt;
  select(term, estimate, conf.low, conf.high) |&gt;
  mutate(across(where(is.numeric), ~round(., 3))) |&gt;
  knitr::kable(
    caption = "Logistic Regression Estimates for Arrest Probability (Source: Traffic stops dataset filtered for Black and White drivers)"
  )
```

```{r}
# Load necessary libraries
library(ggplot2)
library(dplyr)
library(scales)
library(tidytext)  # for reorder_within() and scale_x_reordered()

# Create a polished plot
plot_predictio