suggestion: multiple annotations in a single at_panel

[dcousin3]

Hello, Thanks for your function at_panel(), this is indeed a much needed tool.

Can I suggest that a list of annotations be possible in at_panel(). Here is an example:

p <- ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  facet_grid(year ~ drv)

annotations <- list( 
    annotate("text", x = 3, y = 40, label = "My text"),
    annotate("segment", x = 3, y = 40, xend = 5, yend = 20, color="red")
)

# Target specific panels
p + at_panel(annotations, PANEL %in% c(2, 4))

That would be handy and help keep code cleaners when many annotations are needed in certain panels.

[teunbrand]

Thanks for the suggestion! I can see the merit and there isn't anything I can think of that prevents this. However, I don't know when I'll get around working on ggh4x again, so I can't make any promises on when this will be available.

[dcousin3]

Thanks. In the meanwhile, interested users can do something like:

p + lapply(annotations, \(ann) {at_panel(ann, PANEL %in% c(2, 4))})