R/plot_mm.R

In Zanidean/autumn: Automated Many-Models

#'Many Models Evaluation Matrix
#'@description Plot from auto_mm
#'@param dataframe Dataframe to operate on. Must come from auto_mm
#'@param sort_values Which variable to sort models by?
#'@export plot_mm

plot_mm = function(dataframe, sort){
  dataframe %>%
    mutate(value_1 = fct_reorder(value_1, {{sort}}) %>% fct_rev,
           value_2 = fct_reorder(value_2, {{sort}}) %>% fct_rev) %>%
    ggplot(aes(x = value_1, y = value_2)) +
    geom_tile(aes(fill = {{sort}}), color = "white") +
    scale_fill_viridis_c() +
    theme_minimal() +
    theme(axis.title = element_blank())
}