Removing one tableGrob when applied to a box plot with a facet_wrap

by

It would probably make sense to let annotation_custom access facetting info *; this trivial change seems to do the trick,

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

annotation_custom2 <- 
function (grob, xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf, data) 
{
  layer(data = data, stat = StatIdentity, position = PositionIdentity, 
        geom = ggplot2:::GeomCustomAnn,
        inherit.aes = TRUE, params = list(grob = grob, 
                                          xmin = xmin, xmax = xmax, 
                                          ymin = ymin, ymax = ymax))
}

p <- ggplot(mtcars) + geom_point(aes(mpg, wt)) + facet_wrap(~ cyl)


tg <- tableGrob(iris[1:2,1:2], rows=NULL)
# position the table within the annotation area
tg$vp=viewport(x=unit(0,"npc") + 0.5*sum(tg$widths),
               y=unit(0,"npc") + 0.5*sum(tg$heights))
# need to wrap in a gTree since annotation_custom overwrites the vp
g <- grobTree(tg)
p + annotation_custom2(g, data=data.frame(cyl=8))

Edit * hadley has a different view though, annotation is designed to appear in all panels. It’s not clear to me how to produce the geom equivalent for this particular case, if possible.
enter image description here

More Related Contents:

  1. Left align two graph edges (ggplot)
  2. Plot multiple boxplot in one graph
  3. Add a common Legend for combined ggplots
  4. Put stars on ggplot barplots and boxplots – to indicate the level of significance (p-value)
  5. Labeling Outliers of Boxplots in R
  6. Multiple plots in for loop ignoring par
  7. Changing whisker definition in geom_boxplot
  8. Merge and Perfectly Align Histogram and Boxplot using ggplot2
  9. Plot over multiple pages
  10. How to add a number of observations per group and use group mean in ggplot2 boxplot?
  11. How to change order of boxplots when using ggplot2?
  12. How to plot a hybrid boxplot: half boxplot with jitter points on the other half?
  13. geom_boxplot with precomputed values
  14. Include space for missing factor level used in fill aesthetics in geom_boxplot
  15. how to show a legend on dual y-axis ggplot
  16. Plotting a stacked bar plot?
  17. In ggplot2, what do the end of the boxplot lines represent?
  18. set ggplot plots to have same x-axis width and same space between dot plot rows
  19. Saving grid.arrange() plot to file
  20. How to draw the boxplot with significant level?
  21. Multiple ggplots of different sizes
  22. Joining means on a boxplot with a line (ggplot2)
  23. How to use empty space produced by facet_wrap?
  24. Generate ggplot2 boxplot with different colours for multiple groups
  25. Change or modify x axis tick labels in R using ggplot2 [duplicate]
  26. Add color to boxplot – “Continuous value supplied to discrete scale” error
  27. The perils of aligning plots in ggplot
  28. annotate boxplot in ggplot2
  29. Adding percentage labels on pie chart in R
  30. Add number of observations per group in boxplot

Leave a Comment