How to add a table to a ggplot?

Question

I am trying to combine (in a single chart) a regular ggplot chart with a table obtained with flextable.

Consider the following example:

library(tidyverse)
library(patchwork)

mydf <- tibble(a = c(1,2,3,4,5,4),
               b = c(4,4,4,3,3,3))

p1 <- mydf %>% ggplot(aes(x = a, y = b, color = as.factor(b))) + geom_point()

p2 <- mydf %>% flextable::flextable()

p2 looks like

but unfortunately I cannot combine it with p1

> p1 + p2
Error: Don't know how to add p2 to a plot

What can we do? Thanks!

Does this answer your question? [Adding table within the plotting region of a ggplot in r](https://stackoverflow.com/questions/12318120/adding-table-within-the-plotting-region-of-a-ggplot-in-r) — Bappa Das, Feb 22 '20 at 05:00

score 7 · Accepted Answer · answered Feb 22 '20 at 08:08

7

You can use fonction flextable::as_raster to get a raster from a flextable and then add with annotation_custom to an empty ggplot object.

library(ggplot2)
library(flextable)
library(grid)
library(cowplot)
library(tidyverse)

mydf <- tibble(a = c(1,2,3,4,5,4),
               b = c(4,4,4,3,3,3))

p1 <- mydf %>% ggplot(aes(x = a, y = b, color = as.factor(b))) + geom_point()

ft_raster <- mydf %>% flextable::flextable() %>% 
  as_raster()

p2 <- ggplot() + 
  theme_void() + 
  annotation_custom(rasterGrob(ft_raster), xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf)

cowplot::plot_grid(p1, p2, nrow = 2, ncol = 1, rel_heights = c(4, 1) )

Documentation is here: https://davidgohel.github.io/flextable/articles/offcran/images.html

answered Feb 22 '20 at 08:08

David Gohel

7,348
2
14
30

thanks!! but i am trying to add the table as if it was a plot (not as an annotation that is). how can i get that? – ℕʘʘḆḽḘ Feb 22 '20 at 13:42
in other words the table should take as much space as the plot (side by side) – ℕʘʘḆḽḘ Feb 22 '20 at 14:03
1

If I understand correctly, with patchwork, you would have to use `p1 + p2` or with cowplot `cowplot::plot_grid(p1, p2, nrow = 1, ncol = 2)`. Is that what you want? – David Gohel Feb 22 '20 at 16:36
ha actually David the big issue is that as_raster needs `install_phantomjs()` which is deprecated and hard to install at work. Do you see any other working alternatives? – ℕʘʘḆḽḘ Feb 23 '20 at 03:31
using webshot2 is an alternative – David Gohel Feb 23 '20 at 05:43
it was missing from as_raster args but now its ok - use github version – David Gohel Feb 23 '20 at 06:17

score 6 · Answer 2 · answered Feb 22 '20 at 05:03

tableGrob from the gridExtra package works too

library(tidyverse)
library(grid)
library(gridExtra)

mydf <- tibble(a = c(1,2,3,4,5,4),
               b = c(4,4,4,3,3,3))

p1 <- mydf %>% ggplot(aes(x = a, y = b, color = as.factor(b))) + geom_point()

mytheme <- gridExtra::ttheme_default(
  core = list(padding = unit(c(2.5, 2.5), "mm")))
tbl <- tableGrob(mydf, theme = mytheme, rows = NULL)

grid.arrange(p1,
             tbl,
             nrow = 2,
             as.table = TRUE,
             heights = c(4, 1))

^{Created on 2020-02-21 by the reprex package (v0.3.0)}

Bappa Das · Answer 3 · 2020-02-22T06:30:30.880

Following 2 ways are there

library(tidyverse)
library(ggpmisc)

mydf <- tibble(a = c(1,2,3,4,5,4),
               b = c(4,4,4,3,3,3))

p1 <- mydf %>% ggplot(aes(x = a, y = b, color = as.factor(b))) + geom_point()
p1 + annotate(geom = "table", x = 4.5, y = 3.5, label = list(mydf), 
           vjust = 1, hjust = 0)

p1 + geom_table_npc(data = mydf, label = list(mydf),npcx = 0.05, npcy = 0.90, hjust = 0, vjust = 1)

How to add a table to a ggplot?

3 Answers3

Linked

Related