library(dplyr)
library(ggplot2)
library(ggblanket)
library(palmerpenguins)
set_blanket()
d <- penguins |>
add_row(
flipper_length_mm = 175,
body_mass_g = 2500,
species = "Adelie",
)
# axis line goes through geom
d |>
gg_point(
x = flipper_length_mm,
y = body_mass_g,
col = species,
)
# axis line does not go through geom
d |>
gg_blanket(
x = flipper_length_mm,
y = body_mass_g,
col = species,
) +
annotate_axis_line() +
geom_point()
Run the code above in your browser using DataLab