library(ggplot2)
library(ggblanket)
library(palmerpenguins)
set_blanket(
mode = dark_mode_r(),
geom_colour = orange,
annotate_colour = darkness[1],
)
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")
penguins |>
gg_histogram(
x = flipper_length_mm,
x_breaks = scales::breaks_pretty(3),
) +
geom_vline(xintercept = 200) +
annotate("text", x = I(0.75), y = I(0.75), label = "Here")
Run the code above in your browser using DataLab