Replace a axis line with an annotated segment, so that geom features are in front of it.
Usage
annotate_axis_line(
axis = "x",
...,
x_position = "bottom",
y_position = "left",
colour = NULL,
linewidth = NULL
)Arguments
- axis
The axis. Either "x" or "y"
- ...
Extra parameters passed to
ggplot2::annotate("segment", ...).- x_position
The position of the "x" axis, if applicable. Either "bottom" or "top".
- y_position
The position of the "y" axis, if applicable. Either "left" or "right".
- colour
The colour of the annotated segment.
- linewidth
The linewidth of the annotated segment.
Examples
library(dplyr)
library(ggplot2)
library(ggblanket)
library(palmerpenguins)
set_blanket()
set_geom_reference_line()
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,
)
#> Scale for colour is already present.
#> Adding another scale for colour, which will replace the existing scale.
#> Warning: Removed 2 rows containing missing values or values outside the scale range
#> (`geom_point()`).
# 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()
#> Scale for colour is already present.
#> Adding another scale for colour, which will replace the existing scale.
#> Warning: Removed 2 rows containing missing values or values outside the scale range
#> (`geom_point()`).
