library(ggplot2)
library(ggblanket)
library(palmerpenguins)
set_blanket()
weave_annotate_defaults("#bc5090")
penguins |>
gg_point(
x = flipper_length_mm,
y = body_mass_g,
x_breaks = scales::breaks_pretty(3),
) +
geom_vline(xintercept = 200) +
annotate("text", x = I(0.25), y = I(0.75), label = "Here")
Run the code above in your browser using DataLab