{"id":3052,"date":"2023-05-07T20:02:10","date_gmt":"2023-05-07T20:02:10","guid":{"rendered":"http:\/\/optimumsportsperformance.com\/blog\/?p=3052"},"modified":"2023-05-07T20:02:10","modified_gmt":"2023-05-07T20:02:10","slug":"displaying-tables-plots-together-part-2-adding-titles-captions","status":"publish","type":"post","link":"https:\/\/optimumsportsperformance.com\/blog\/displaying-tables-plots-together-part-2-adding-titles-captions\/","title":{"rendered":"Displaying Tables & Plots Together Part 2: Adding Titles & Captions"},"content":{"rendered":"

Yesterday’s post about creating single page reports with tables and plots in the same display window<\/a><\/strong><\/span> got a lot of follow up questions and comments (which is great!). In particular, Lyle Danley<\/a><\/span><\/strong> brought up a good point that adding titles to these reports, while important, can sometimes be tricky with these types of displays. So, I decided to do a quick follow up to show how to add titles and captions to your reports (in case you want to point out some key things to your colleagues or the practitioners you are working with).<\/p>\n

I’m going to use the exact same code as yesterday, so check out that article<\/a><\/span><\/strong> to see the general approach to building these reports. As always, all of the code for yesterday’s article and today’s are on my GITHUB page<\/a><\/span><\/strong>.<\/p>\n

Review<\/strong><\/span><\/p>\n

Recall that yesterday we\u00a0 constructed the below plot using both ggarrange() <\/strong> and the {patchwork<\/strong>} package.\"\"<\/a><\/p>\n

I’m going to use both approaches and add a title and a bullet point caption box in the bottom right.<\/p>\n

Titles & Captions with ggarrange()<\/strong><\/span><\/p>\n

I wont rehash all of the code from yesterday, but the ggarrange() <\/strong>table that we created with was constructed with the following code.<\/p>\n

\r\n## Build table into a nice ggtextable() to visualize it\r\ntbl <- ggtexttable(fit, rows = NULL, theme = ttheme("blank")) %>%\r\n  tab_add_hline(at.row = 1:2, row.side = "top", linewidth = 2) %>%\r\n  tab_add_hline(at.row = 4, row.side = "bottom", linewidth = 3, linetype = 1)\r\n<\/pre>\n
To create a bullet point caption box I need to first create a string of text that I want to display, using the paste()<\/strong> function. I then wrap this text into the ggparagraph() <\/strong>function so that it can be appropriately displayed on the plot. Then, similar to yesterday, I use the ggarrange()<\/strong> function to put the two plots, the table, and the caption box, into a single canvas.<\/p>\n
\r\n## Create text for a caption\r\ntext <- paste("* It appears that gender and flipper length are important for estimating bill length.",\r\n              " ",\r\n              "* Males have a bill length that is 2.073 mm greater than females on average.",\r\n              " ",\r\n              "* Penguins on different islands should be tested to determine how well this model will perform out of sample.",\r\n              sep = "\\n")\r\n\r\ntext.p <- ggparagraph(text = text, \r\n                      #face = "italic", \r\n                      size = 12,\r\n                      color = "black") + \r\n  theme(plot.margin = unit(c(t = 1, b = -3, r = 1, l = 2),"cm"))\r\n\r\n\r\n## Plots & Table together with the caption using ggarange()\r\nfinal_display <- ggarrange(plt1, plt2, tbl, text.p,\r\n          ncol = 2, nrow = 2)\r\n<\/pre>\n
I saved the canvas as final_display<\/strong> which I can now wrap in the annotate_figure() <\/strong>function to add the common title to the report.<\/p>\n
\r\n## add a common title\r\nannotate_figure(final_display, top = text_grob("Investigation of Penguin Bill Lengths", \r\n                                      color = "blue", face = "bold", size = 18))\r\n<\/pre>\n
The finished product looks like this:<\/p>\n
\"\"<\/a><\/p>\n
Titles & Captions with patchwork<\/strong><\/span><\/p>\n
Now, we will do the same thing with {patchwork<\/strong>}. Just like yesterday, to use {patchwork<\/strong>} we need to change the table from a ggtextable<\/strong> to a tableGrob<\/strong>. After that we can wrap it together with our two plots.<\/p>\n
\r\n# Need to build the table as a tableGrob() instead of ggtextable\r\n# to make it work with patch work\r\ntbl2 <- tableGrob(fit, rows = NULL, theme = ttheme("blank")) %>%\r\n  tab_add_hline(at.row = 1:2, row.side = "top", linewidth = 2) %>%\r\n  tab_add_hline(at.row = 4, row.side = "bottom", linewidth = 3, linetype = 1)\r\n\r\n# now visualize together\r\nfinal_display2 <- wrap_plots(plt1, plt2, tbl2, \r\n           ncol = 2,\r\n           nrow = 2)\r\n<\/pre>\n
We stored the final canvas in the element final_display2<\/strong>. We can add a title, subtitle, caption, and bullet point box to this using patchwork’s plot_annotation() <\/strong>function by simply specifying the text that we would like.<\/p>\n
\r\nfinal_display2 + plot_annotation(\r\n  title = "Investigation of Penguin Bill Lengths",\r\n  subtitle = "Careful, sometimes the Penguins bite!!",\r\n  caption = "data courtesty of {palmerpenguins} R package") + \r\n  grid::textGrob(hjust = 0, x = 0,\r\n                   "* It appears that gender and flipper length are important for estimating bill length.\\n* Males have a bill length that is 2.073 mm greater than females on average.\\n* Penguins on different islands should be tested to determine\\nhow well this model will perform out of sample.")\r\n<\/pre>\n
Ads here is our final report:<\/p>\n
\"\"<\/a><\/p>\n
Wrapping up<\/strong><\/span><\/p>\n
There are two simple ways using two different R packages to create single page reports with plots, data tables, and even bullet point notes for the reader. Happy report constructing!<\/p>\n
For the complete code to the blog article check out my GITHUB page<\/a><\/span><\/strong>.<\/p>\n","protected":false},"excerpt":{"rendered":"
Yesterday’s post about creating single page reports with tables and plots in the same display window got a lot of follow up questions and comments (which is great!). In particular, Lyle Danley brought up a good point that adding titles to these reports, while important, can sometimes be tricky with these types of displays. So, […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[45,43],"tags":[],"class_list":["post-3052","post","type-post","status-publish","format-standard","hentry","category-r-tips-tricks","category-sports-analytics"],"_links":{"self":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/3052","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/comments?post=3052"}],"version-history":[{"count":1,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/3052\/revisions"}],"predecessor-version":[{"id":3055,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/3052\/revisions\/3055"}],"wp:attachment":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/media?parent=3052"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/categories?post=3052"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/tags?post=3052"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}