# We run this with the updated model
Brexit_variable_importance <- data.frame(imp = Brexit_model_final$variable.importance)
Brexit_variable_importance2 <- Brexit_variable_importance %>% 
  tibble::rownames_to_column() %>% 
  dplyr::rename("variable" = rowname) %>% 
  dplyr::arrange(imp) %>%
  dplyr::mutate(variable = forcats::fct_inorder(variable))
ggplot2::ggplot(Brexit_variable_importance2) +
  geom_col(aes(x = variable, y = imp),
           col = "white", fill = "navy blue", show.legend = F) +
  coord_flip() +
  scale_fill_grey() +
  theme_bw()