{base}
{stats}
{tidymodels}
parsnip
{dials}
workflow_set
stacks
bean_rec_trained %>% step_pca(all_numeric_predictors(), num_comp = 4) %>% plot_validation_results() + ggtitle("Principal Component Analysis")