Adding text to a grid.table plot

by

To place text close to the table you’ll want to evaluate the table size first,

library(gridExtra)
d <- head(iris)
table <- tableGrob(d)

grid.newpage()
h <- grobHeight(table)
w <- grobWidth(table)
title <- textGrob("Title", y=unit(0.5,"npc") + 0.5*h, 
                  vjust=0, gp=gpar(fontsize=20))
footnote <- textGrob("footnote", 
                     x=unit(0.5,"npc") - 0.5*w,
                     y=unit(0.5,"npc") - 0.5*h, 
                  vjust=1, hjust=0,gp=gpar( fontface="italic"))
gt <- gTree(children=gList(table, title, footnote))
grid.draw(gt)

Edit (17/07/2015) With gridExtra >=2.0.0, this approach is no longer suitable. tableGrob now returns a gtable, which can be more easily customised.

library(gridExtra)
d <- head(iris)
table <- tableGrob(d)

library(grid)
library(gtable)

title <- textGrob("Title",gp=gpar(fontsize=50))
footnote <- textGrob("footnote", x=0, hjust=0,
                     gp=gpar( fontface="italic"))

padding <- unit(0.5,"line")
table <- gtable_add_rows(table, 
                         heights = grobHeight(title) + padding,
                         pos = 0)
table <- gtable_add_rows(table, 
                         heights = grobHeight(footnote)+ padding)
table <- gtable_add_grob(table, list(title, footnote),
                         t=c(1, nrow(table)), l=c(1,2), 
                         r=ncol(table))
grid.newpage()
grid.draw(table)

More Related Contents:

  1. R: Using an anonymous function to return the last element of a vector [closed]
  2. Generate a dummy-variable
  3. dcast warning: ‘Aggregation function missing: defaulting to length’
  4. General suggestions for debugging in R
  5. Reorder levels of a factor without changing order of values
  6. Warning message: In `…` : invalid factor level, NA generated
  7. Subset dataframe by multiple logical conditions of rows to remove
  8. Finding rows containing a value (or values) in any column
  9. Merge two data frames while keeping the original row order
  10. Get “embedded nul(s) found in input” when reading a csv using read.csv()
  11. How to change the default time zone in R?
  12. Adding a new column to each element in a list of tables or data frames
  13. Plotting bar charts on map using ggplot2?
  14. Using lists inside data.table columns
  15. Why am I getting X. in my column names when reading a data frame?
  16. Can I replace NAs when joining two data frames with dplyr?
  17. Cumulative sum until maximum reached, then repeat from zero in the next row
  18. remove all line breaks (enter symbols) from the string using R
  19. Consolidate duplicate rows
  20. Error in loadNamespace(name) : there is no package called ‘Rcpp’
  21. RStudio not picking the encoding I’m telling it to use when reading a file
  22. Is there a dictionary functionality in R
  23. R: lm() result differs when using `weights` argument and when using manually reweighted data
  24. Creating a density histogram in ggplot2?
  25. R group by aggregate
  26. Set the size of ggsave exactly
  27. Output error/warning log (txt file) when running R script under command line
  28. Combining S4 and S3 methods in a single function
  29. Plot a heart in R [duplicate]
  30. Convert roman numerals to numbers in R

Leave a Comment