Plotting empirical results

predict_parts(explainer = explain_rf, 
              new_observation = henry, 
              type = "oscillations_emp") |>
  dplyr::mutate(`_ids_` = "Henry") |>
  plot() +
  ggplot2::ggtitle("Ceteris-paribus Oscillations", 
                   "Expectation over empirical distribution")