Make function histogram_facet_plot()

[spsanderson]

No description provided.

[spsanderson]

histogram_facet_plot <- function(
  .data
  , .bins = 10
  , .ncol = 5
  , .fct_reorder = FALSE
  , .fct_rev = FALSE
  , .fill = tidyquant::palette_light()[[3]]
  , .color = "white"
  , .scale = "free"
) {
  data_factored <- data %>%
    mutate_if(is.character, as.factor) %>%
    mutate_if(is.factor, as.numeric) %>%
    gather(key = key, value = value, factor_key = TRUE)

if (fct_reorder) {
  data_factored <- data_factored %>%
    mutate(key = as.character(key) as.factor())
  }

if (fct_rev){
  data_factored <- data_factored %>%
    mutate(key = fct_rev(key))
  }

g <- data_factored %>%
  ggplot(aes(x = value, group = key)) +
  geom_histogram(bins = bins, fill = fill, color = color) +
  facet_wrap(~ key, ncol = ncol, scale = scale) +
  theme_tq()

return(g)
}