\n UPDATE: A newer blog post explaining the new ggplot2 additions: http:\/\/rud.is\/b\/2016\/03\/16\/supreme-annotations\/<\/a><\/p>\n UPDATE: this capability (+ more) are being rolled into ggplot2-proper. PR will be absorbed into ggplot2 main branch soon. exciting, annotated times ahead!<\/p>\n UPDATE: Subtitles aren’t always necessary for plots, but I began to use them enough that I whipped up a function for We’ll nigh fully recreate the following plot from this WaPo article<\/span>:<\/p>\n Here’s a stab at that w\/o the subtitle:<\/p>\n \n (There are some \"tricks\" in that plotting code that may be worth spending an extra minute or two to mull over if you didn't realize some of the function parameters were vectorized, or that you could get a white background with no border for text labels so grid lines don't get in the way.)\n<\/p><\/blockquote>\n Ideally, a subtitle would be part of the The roxygen comments should give you an idea of how to work with it, and here it is in action:<\/p>\n It deals with long annotations pretty well, too (I I think this beats manually re-creating the wheel, even if you only infrequently use subtitles. It definitely beats hand-editing plots and is a bit more elegant and functional than using Kick the tyres, tell me where it breaks and if I can cover enough edge cases (or make it smarter) I'll add it to my Thanks to:<\/p>\n @hrbrmstr<\/a> Sweet. Any thoughts of making it an RStudio addin?<\/p>\n — Andrew Clark (@pssGuy) March 13, 2016<\/a><\/p><\/blockquote>\nfontsize<\/code> issue has been fixed & there’s a Shiny gadget available for interactively making subtitles. More info at the end of the post.\n<\/p><\/blockquote>\nggplot2<\/code> that does a decent job adding a subtitle to a finished plot object. More than a few folks have tried their hand at this in the past and this is just my incremental contribution until there’s proper support in ggplot2<\/code> (someone’s bound<\/em> to add it via PR at some point).<\/p>\n![\"2300lawyers0116-2\"](\"https:\/\/i0.wp.com\/rud.is\/b\/wp-content\/uploads\/2016\/03\/2300lawyers0116-2.jpg?resize=460%2C310&ssl=1\")
<\/a><\/p>\nlibrary(ggplot2)\nlibrary(scales)\n\ndata.frame(\n yrs=c(\"1789-90\", \"1849-50\", \"1909-10\", \"1965-66\", \"2016-16\"),\n pct=c(0.526, 0.795, 0.713, 0.575, 0.365),\n xtralabs=c(\"\", \"Highest:\\n\", \"\", \"\", \"Lowest:\\n\")\n) -> hill_lawyers\n\ngg <- ggplot(hill_lawyers, aes(yrs, pct))\ngg <- gg + geom_bar(stat=\"identity\", width=0.65)\ngg <- gg + geom_label(aes(label=sprintf(\"%s%s\", xtralabs, percent(pct))),\n vjust=-0.4, family=c(rep(\"FranklinGothic-Book\", 4),\"FranklinGothic-Heavy\"), \n lineheight=0.9, size=4, label.size=0)\ngg <- gg + scale_x_discrete()\ngg <- gg + scale_y_continuous(expand=c(0,0), limits=c(0.0, 1.0), labels=percent)\ngg <- gg + labs(x=NULL, y=NULL, title=\"Fewer and fewer lawyers on the Hill\")\ngg <- gg + theme_minimal(base_family=\"FranklinGothic-Book\")\ngg <- gg + theme(axis.line=element_line(color=\"#2b2b2b\", size=0.5))\ngg <- gg + theme(axis.line.y=element_blank())\ngg <- gg + theme(axis.text.x=element_text(family=c(rep(\"FranklinGothic-Book\", 4),\n \"FranklinGothic-Heavy\")))\ngg <- gg + theme(panel.grid.major.x=element_blank())\ngg <- gg + theme(panel.grid.major.y=element_line(color=\"#b2b2b2\", size=0.1))\ngg <- gg + theme(panel.grid.minor.y=element_blank())\ngg <- gg + theme(plot.title=element_text(hjust=0, \n family=\"FranklinGothic-Heavy\", \n margin=margin(b=10)))\ngg<\/pre>\n
![\"RStudio\"](\"https:\/\/i0.wp.com\/rud.is\/b\/wp-content\/uploads\/2016\/03\/RStudio.png?w=510&ssl=1\")
<\/a><\/p>\ngtable<\/code> that gets made underneath the covers so it will \"travel well\" with the plot object itself. The function below makes a textGrob<\/code> from whatever text we pass into it and does just that; it inserts the new grob into a new table row.<\/p>\n#' Add a subtitle to a ggplot object and draw plot on current graphics device.\n#' \n#' @param gg ggplot2 object\n#' @param label subtitle label\n#' @param fontfamily font family to use. The function doesn't pull any font \n#' information from \\code{gg} so you should consider specifying fonts\n#' for the plot itself and here. Or send me code to make this smarter :-)\n#' @param fontsize font size\n#' @param hjust,vjust horizontal\/vertical justification \n#' @param bottom_margin space between bottom of subtitle and plot (code{pts})\n#' @param newpage draw new (empty) page first?\n#' @param vp viewport to draw plot in\n#' @param ... parameters passed to \\code{gpar} in call to \\code{textGrob}\n#' @return Invisibly returns the result of \\code{\\link{ggplot_build}}, which\n#' is a list with components that contain the plot itself, the data,\n#' information about the scales, panels etc.\nggplot_with_subtitle <- function(gg, \n label=\"\", \n fontfamily=NULL,\n fontsize=10,\n hjust=0, vjust=0, \n bottom_margin=5.5,\n newpage=is.null(vp),\n vp=NULL,\n ...) {\n \n if (is.null(fontfamily)) {\n gpr <- gpar(fontsize=fontsize, ...)\n } else {\n gpr <- gpar(fontfamily=fontfamily, fontsize=fontsize, ...)\n }\n \n subtitle <- textGrob(label, x=unit(hjust, \"npc\"), y=unit(hjust, \"npc\"), \n hjust=hjust, vjust=vjust,\n gp=gpr)\n \n data <- ggplot_build(gg)\n \n gt <- ggplot_gtable(data)\n gt <- gtable_add_rows(gt, grobHeight(subtitle), 2)\n gt <- gtable_add_grob(gt, subtitle, 3, 4, 3, 4, 8, \"off\", \"subtitle\")\n gt <- gtable_add_rows(gt, grid::unit(bottom_margin, \"pt\"), 3)\n \n if (newpage) grid.newpage()\n \n if (is.null(vp)) {\n grid.draw(gt)\n } else {\n if (is.character(vp)) seekViewport(vp) else pushViewport(vp)\n grid.draw(gt)\n upViewport()\n }\n \n invisible(data)\n \n}<\/pre>\nsubtitle <- \"The percentage of Congressional members that are laywers has been\\ncontinuously dropping since the 1960s\"\n\nggplot_with_subtitle(gg, subtitle,\n fontfamily=\"FranklinGothic-Book\",\n bottom_margin=20, lineheight=0.9)<\/pre>\n
![\"Fullscreen_3_12_16__3_39_PM\"](\"https:\/\/i0.wp.com\/rud.is\/b\/wp-content\/uploads\/2016\/03\/Fullscreen_3_12_16__3_39_PM.png?w=510&ssl=1\")
<\/a><\/p>\nstrwrap<\/code>ped the source text for the below at 100<\/code> characters). The text is senseless here, but it's just for show (I had it handy\u2026don't judge\u2026you're getting free code :-):<\/p>\n![\"Fullscreen_3_12_16__7_44_PM\"](\"https:\/\/i0.wp.com\/rud.is\/b\/wp-content\/uploads\/2016\/03\/Fullscreen_3_12_16__7_44_PM.png?w=510&ssl=1\")
<\/a><\/p>\ngrid.arrange<\/code> (et al) to mimic the functionality. It also beats futzing with panel margins and clipping to shoehorn a frankenmashup mess of geom_text<\/code> or annotation_custom<\/code> calls.<\/p>\nggalt<\/code> package.<\/p>\nShiny Subtitle Gadget<\/h3>\n
\n