Plots the PSI of each column from compare_datasets(), highlighting columns
that exceed the drift threshold.
Examples
set.seed(1)
ref <- data.frame(x = rnorm(200), y = rnorm(200))
cur <- data.frame(x = rnorm(200, 1), y = rnorm(200))
plot_drift(ref, cur)