Annotations work only if global aes() have been defined

[bleutner]

Hi,

adding an annotation works only if global aesthetics have been defined in ggplot().
If there are only "local" aesthetics in individual geoms the annotation will not be drawn (no warning though).

library(ggplot2)
library(grid)
df <- data.frame(x = 1:10, y= 1:10) 
anno <- annotation_custom(grid.rect(draw=FALSE), xmin = 7, xmax = 10,ymin = 1, ymax = 2)

## Global aesthetics: works fine
ggplot(df, aes(x = x, y = y)) + geom_point()+ 
        anno

## "Local" aesthetics: does not work
ggplot() + geom_point(data = df, aes(x = x, y = y))+
        anno 

I tried setting scales and/or coord limits explicitly, but this doesn't make it work either:

ggplot() + geom_point(data = df, aes(x = x, y = y))+
        anno +
        scale_x_continuous(limits = c(-10,10)) +
        scale_y_continuous(limits = c(-10,10)) +
        coord_equal(xlim = c(-20,20), ylim = c(-20,20))

[hadley]

The problem is that annotation currently sets data = NULL and clearly there's a bug somewhere because this causes draw_panel() to never be rendered.

Minimal reprex:

library(ggplot2)
df <- data.frame(x = 1:10, y = 1:10) 
ggplot() + 
  geom_point(aes(x, y), data = df) + 
  annotation_custom(grid::rectGrob(), xmin = 7, xmax = 10, ymin = 1, ymax = 2)

[thomasp85]

This is due to Layer checking for empty data before calling draw_layer. I'll add a switch to Layer to allow drawing with no data

[thomasp85]

This is being fixed in #1690