How to annotate only one graph/individual graphs

[andreea]

I have the following code:
ggplot(penguins)+geom_point(mapping = aes(x=flipper_length_mm, y=body_mass_g, color=species))+
labs(title = "Mass vs. Length", subtitle = "Sample of Penguin dataset", caption = "Collected by Dr. Gorman")+
theme_classic()+xlab("Flipper Length")+ylab("Body Mass")+facet_wrap(.~species) +annotate("text", x=200,y=3500, label="Gentoo is the best", color="cornflowerblue", angle=30)

The data referrers to "palmerspenguins" package. I know that annotate() function writes for every individual chart but I want that text to be specifically for the graph where Gentoo is displayed.

[jrkrideau]

Try this:

### Adapted from https://r-graphics.org/recipe-annotate-facet

library(tidyverse)
library(palmerpenguins)

birds  <- ggplot(penguins) +
  geom_point(mapping = aes(x = flipper_length_mm, y = body_mass_g, color = species)) +
  labs(title = "Mass vs. Length", subtitle = "Sample of Penguin dataset", caption = "Collected by Dr. Gorman") +
  theme_classic() +
  xlab("Flipper Length") +
  ylab("Body Mass") +
  facet_wrap(. ~ species)

p_labs <- data.frame(species  = c("Adelie", "Chinstrap", "Gentoo"), label = c(" ", " ", "Gentoo is best"))

 birds + geom_text(x = 200, y = 4500, aes(label = label), data = p_labs, angle = 30)

[andreea]

@jrkrideau

### Adapted from https://r-graphics.org/recipe-annotate-facet

library(tidyverse)
library(palmerpenguins)

birds  <- ggplot(penguins) +
  geom_point(mapping = aes(x = flipper_length_mm, y = body_mass_g, color = species)) +
  labs(title = "Mass vs. Length", subtitle = "Sample of Penguin dataset", caption = "Collected by Dr. Gorman") +
  theme_classic() +
  xlab("Flipper Length") +
  ylab("Body Mass") +
  facet_wrap(. ~ species)

p_labs <- data.frame(species  = c("Adelie", "Chinstrap", "Gentoo"), label = c(" ", " ", "Gentoo is best"))

 birds + geom_text(x = 200, y = 4500, aes(label = label), data = p_labs, angle = 30)

It works, thank you!