R: extract ggplot object from brm marginal_effects() plot

gg_marginal_effects.R

gg_marginal_effects <- function(model, effects, probs=c(0.25, 0.75)) {
  me <- brms::marginal_effects(model, effects=effects, probs=probs)
  plt.me <- plot(me, 
                  effects=effects,
                  plot=FALSE,
                  rug=TRUE,
                  theme=ggplot2::theme_get()
                  )[[1]]
}