Inserting a table under the legend in a ggplot2 histogram

by

Dickoa’s answer is very neat. Mine gives you more control over the elements.

my_hist <- ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar()

#create inset table
my_table <- tableGrob(head(diamonds)[,1:3], gpar.coretext = gpar(fontsize=8), gpar.coltext=gpar(fontsize=8), gpar.rowtext=gpar(fontsize=8))

#Extract Legend
g_legend <- function(a.gplot){
  tmp <- ggplot_gtable(ggplot_build(a.gplot))
  leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
  legend <- tmp$grobs[[leg]]
  return(legend)}

legend <- g_legend(my_hist)

#Create the viewports, push them, draw and go up
grid.newpage()
vp1 <- viewport(width = 0.75, height = 1, x = 0.375, y = .5)
vpleg <- viewport(width = 0.25, height = 0.5, x = 0.85, y = 0.75)
subvp <- viewport(width = 0.3, height = 0.3, x = 0.85, y = 0.25)
print(my_hist + opts(legend.position = "none"), vp = vp1)
upViewport(0)
pushViewport(vpleg)
grid.draw(legend)
#Make the new viewport active and draw
upViewport(0)
pushViewport(subvp)
grid.draw(my_table)

enter image description here

More Related Contents:

  1. ggplot with 2 y axes on each side and different scales
  2. Show percent % instead of counts in charts of categorical variables
  3. How to add texture to fill colors in ggplot2
  4. Simpler population pyramid in ggplot2
  5. ggplot, facet, piechart: placing text in the middle of pie chart slices
  6. Local Variables Within aes
  7. What do hjust and vjust do when making a plot using ggplot?
  8. how to add layers in ggplot using a for-loop
  9. asymmetric color distribution in scale_gradient2?
  10. Adding minor tick marks to the x axis in ggplot2 (with no labels)
  11. How can I add hatches, stripes or another pattern or texture to a barplot in ggplot?
  12. Missing legend with ggplot2 and geom_line
  13. Reduce PDF file size of plots by filtering hidden objects
  14. Making a stacked bar plot for multiple variables – ggplot2 in R
  15. ggplot separate legend and plot
  16. ggplot2 heatmap with colors for ranged values
  17. Change ggplot factor colors
  18. ggplot centered names on a map
  19. Setting absolute size of facets in ggplot2
  20. ggplot2 plot without axes, legends, etc
  21. Increase resolution of color scale for values close to zero
  22. ggplot2 : Plot mean with geom_bar
  23. how to change the color in geom_point or lines in ggplot [duplicate]
  24. How to add different lines for facets
  25. Add number of observations per group in ggplot2 boxplot
  26. Add secondary X axis labels to ggplot with one X axis
  27. if else condition in ggplot to add an extra layer
  28. Remove space between bars ggplot2
  29. How can I add annotations below the x axis in ggplot2?
  30. Remove facet_wrap labels completely

Leave a Comment