How to plot just the legends in ggplot2?

by

Here are 2 approaches:

Set Up Plot

library(ggplot2) 
library(grid)
library(gridExtra) 

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

Cowplot approach

# Using the cowplot package
legend <- cowplot::get_legend(my_hist)

grid.newpage()
grid.draw(legend)

Home grown approach

Shamelessly stolen from: Inserting a table under the legend in a ggplot2 histogram

## Function to 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]] 
    legend
} 

legend <- g_legend(my_hist) 

grid.newpage()
grid.draw(legend)

Created on 2018-05-31 by the reprex package (v0.2.0).

More Related Contents:

  1. Several questions on ggplot2 [closed]
  2. Multirow axis labels with nested grouping variables
  3. How to change legend title in ggplot
  4. Consistent width for geom_bar in the event of missing data
  5. Conditionally change panel background with facet_grid?
  6. Editing legend (text) labels in ggplot
  7. How to order data by value within ggplot facets
  8. ggplot2 0.9.0 automatically dropping unused factor levels from plot legend?
  9. Using two scale colour gradients ggplot2 [duplicate]
  10. Adding percentage labels to a bar chart in ggplot2
  11. Avoid clipping of points along axis in ggplot
  12. Issue with geom_text when using position_dodge
  13. How to put a geom_sf produced map on top of a ggmap produced raster
  14. ggplot2 heatmaps: using different gradients for categories
  15. Connecting across missing values with geom_line
  16. Different legends and fill colours for facetted ggplot?
  17. How can I make a discontinuous axis in R with ggplot2?
  18. In ggplot2, what do the end of the boxplot lines represent?
  19. Add a horizontal line to plot and legend in ggplot2
  20. How to use subscripts in ggplot2 legends [R]
  21. ggplot2: How to use same colors in different plots for same factor
  22. R: ggplot2 barplot and error bar
  23. ggplot2 – The unit of size
  24. How to make variable bar widths in ggplot2 not overlap or gap
  25. Apply a ggplot-function per group with dplyr and set title per group
  26. How to use empty space produced by facet_wrap?
  27. Specify height and width of ggplot graph in Rmarkdown knitr output
  28. The perils of aligning plots in ggplot
  29. How do I loop through column names and make a ggplot scatteplot for each one
  30. How to use superscript in axis labels with ggplot2

Leave a Comment