Fivethirtyeight footer

fivethirtyeight_footer.R

footer_538_patchwork <- function(
  base_plot, 
  text_left = "", 
  text_right = "", 
  bg_colour = "#5B5E5F", 
  font_colour = "white",
  font_family = "sans",
  font_size = 12){
  
  footer_left <- grid::textGrob(
    label = text_left, 
    x = grid::unit(0.02,"npc"), 
    gp = grid::gpar(col = font_colour, fontfamily = font_family, fontsize = font_size),
    hjust = 0)
  
  footer_right <- grid::textGrob(
    label = text_right, 
    x = grid::unit(0.98,"npc"), 
    gp = grid::gpar(col = font_colour, fontfamily = font_family, fontsize = font_size),
    hjust = 1)
  
  footer <- grid::grobTree(
    grid::rectGrob(gp = grid::gpar(fill = bg_colour,lwd = 0)),
    footer_left,
    footer_right
  )
  
  plot_out <- patchwork::wrap_plots(base_plot,
                        footer,
                        nrow = 2,
                        ncol = 1,
                        widths = c(1,1),
                        heights = c(0.94,0.06))
  return(plot_out)
}

plot_tweets |> footer_538_patchwork(text_left = "FiveThirtyEight",
                                    text_right =  "SOURCE: TWITTER STREAMING API",
                                    font_family = "Roboto")