{"id":3048,"date":"2023-05-06T15:11:52","date_gmt":"2023-05-06T15:11:52","guid":{"rendered":"http:\/\/optimumsportsperformance.com\/blog\/?p=3048"},"modified":"2023-05-06T15:11:52","modified_gmt":"2023-05-06T15:11:52","slug":"displaying-tables-plots-together","status":"publish","type":"post","link":"https:\/\/optimumsportsperformance.com\/blog\/displaying-tables-plots-together\/","title":{"rendered":"Displaying Tables & Plots Together"},"content":{"rendered":"

A common question that I get asked is for a simple way of displaying tables and plots together in the same one-page report. Most in the sport science space that are new to R will copy and paste their plot and table outputs into a word document and then share that with their colleagues. But, this creates extra work — copying, pasting, making sure you don’t mess up and forget to paste the latest plot, etc. So, today’s blog article will walk through a really easy way to create a single page document for combining tables and plots into a single report, which you can save to PDF or jpeg directly from RStudio. This same approach is also useful for researchers looking to combine tables and plots into a single figure for publication. I’ll show how to do this using both ggarange()<\/strong> and {patchwork<\/strong>}.<\/p>\n

As always, the full code is available on my GITHUB page<\/a><\/span><\/strong>.<\/p>\n

Load Libraries and Set a Plotting Theme<\/strong><\/span><\/p>\n

\r\n### Load libraries\r\nlibrary(tidyverse)\r\nlibrary(ggpubr)\r\nlibrary(gridExtra)\r\nlibrary(patchwork)\r\nlibrary(broom)\r\nlibrary(palmerpenguins)\r\n\r\n## set plot theme\r\ntheme_set(theme_classic() +\r\n            theme(axis.text = element_text(size = 11, face = "bold"),\r\n                  axis.title = element_text(size = 13, face = "bold"),\r\n                  plot.title = element_text(size = 15),\r\n                  legend.position = "top"))\r\n\r\n<\/pre>\n
 <\/p>\n
Load Data<\/strong><\/span><\/p>\n
We will use the {palmerpenguins<\/strong>} data that is freely available in R.<\/p>\n
\r\n## load data\r\ndata("penguins")\r\nd <- penguins %>%\r\n  na.omit()\r\n<\/pre>\n
 <\/p>\n
Build the Plots & Table<\/strong><\/span><\/p>\n
First we will build our plots. We are going to create two plots and one table. The table will store the information from a linear regression which regresses bill length on flipper length and penguin sex. The plots will be our visualization of these relationships.<\/p>\n
\r\n## Create Plots\r\nplt1 <- d %>%\r\n  ggplot(aes(x = flipper_length_mm, y = bill_length_mm)) +\r\n  geom_point(aes(fill = sex),\r\n             size = 4,\r\n             shape = 21,\r\n             color = "black",\r\n             alpha = 0.5) +\r\n  geom_smooth(method = "lm",\r\n              aes(color = sex)) +\r\n  scale_fill_manual(values = c("female" = "green", "male" = "blue")) +\r\n  scale_color_manual(values = c("female" = "green", "male" = "blue")) +\r\n  labs(x = "Flipper Length (mm)",\r\n       y = "Bill Length (mm)",\r\n       title = "Bill Length ~ Flipper Length")\r\n\r\n\r\nplt2 <- d %>%\r\n  ggplot(aes(x = sex, y = bill_length_mm)) +\r\n  geom_violin(alpha = 0.5,\r\n              aes(fill = sex)) +\r\n  geom_boxplot(width = 0.2) +\r\n  geom_jitter(alpha = 0.5) +\r\n  labs(x = "Sex",\r\n       y = "Bill Length (mm)",\r\n       title = "Bill Length Conditional on Penguin Gender")\r\n\r\n\r\n## Create table\r\nfit <- d %>%\r\n  lm(bill_length_mm ~ flipper_length_mm + sex, data = .) %>%\r\n  tidy() %>%\r\n  mutate(across(.cols = estimate:statistic,\r\n                ~round(.x, 3)),\r\n         term = case_when(term == "(Intercept)" ~ "Intercept",\r\n                          term == "flipper_length_mm" ~ "Flipper Length (mm)",\r\n                          term == "sexmale" ~ "Male"))\r\n\r\n<\/pre>\n
Convert the table into a ggtextable format<\/strong><\/span><\/p>\n
Right now the table is in a tibble\/data frame format. To get it into a format that is usable within the display grid we will convert it to a ggtextable<\/strong> and use some styling to make it look pretty.<\/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
Display the Table and Plots using ggarrange<\/strong><\/span><\/p>\n
We simply add our plot and table elements to the ggarrange() function and get a nice looking report.<\/p>\n
\r\n## Plots & Table together using ggarange()\r\nggarrange(plt1, plt2, tbl,\r\n          ncol = 2, nrow = 2)\r\n<\/pre>\n
\"\"<\/a><\/p>\n
Display the Table and Plots using patchwork
\n<\/strong><\/span><\/p>\n
We can accomplish the same goal using the {patchwork<\/strong>} package. The only trick here is that we can’t pass a ggarrange element into patchwork. We need to convert the table into a tableGrob()<\/strong> to make this work. A tableGrob()<\/strong> is simple a way for us to capture all of the information that is required for the table structure we’d like. Also note that we can pass the same tableGrob()<\/strong> into ggarrange above and it will work.<\/p>\n
\r\n## Plots & Table together using patchwork\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<\/pre>\n
Now we wrap the tableGrob <\/strong>and our plots into the wrap_plots() <\/strong>function and we are all set!<\/p>\n
\r\n# now visualize together\r\nwrap_plots(plt1, plt2, tbl2, \r\n           ncol = 2,\r\n           nrow = 2)\r\n<\/pre>\n
\"\"<\/a><\/p>\n
Wrapping Up<\/strong><\/span><\/p>\n
Instead of copying and pasting tables and plots into word, try using these two simple approaches to creating a single report page that stores all of the necessary information that you colleagues need to see!<\/p>\n
All of the code is available on my GITHUB page<\/a><\/strong><\/span>.<\/p>\n","protected":false},"excerpt":{"rendered":"
A common question that I get asked is for a simple way of displaying tables and plots together in the same one-page report. Most in the sport science space that are new to R will copy and paste their plot and table outputs into a word document and then share that with their colleagues. But, […]<\/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,42],"tags":[],"class_list":["post-3048","post","type-post","status-publish","format-standard","hentry","category-r-tips-tricks","category-sports-analytics","category-sports-science"],"_links":{"self":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/3048","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=3048"}],"version-history":[{"count":1,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/3048\/revisions"}],"predecessor-version":[{"id":3051,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/3048\/revisions\/3051"}],"wp:attachment":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/media?parent=3048"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/categories?post=3048"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/tags?post=3048"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}