Idea: make rug guide

[teunbrand]

Like geom_rug(), but part of a guide.
If using for position guides, might have to manually feed data, as position guides cannot read data from plot.

[teunbrand]

Just realising we're already 90% there

library(legendry)
#> Loading required package: ggplot2

ggplot(mtcars, aes(wt, mpg, colour = drat)) +
  geom_point() +
  guides(
    x = guide_axis_stack("axis", primitive_ticks(key = key_manual(mtcars$wt))),
    y = guide_axis_stack("axis", primitive_ticks(key = key_manual(mtcars$mpg))),
    colour = guide_colbar(second_guide = primitive_ticks(
      key = key_manual(mtcars$drat),
      theme = theme(legend.ticks.length = unit(2.75, "pt"),
                    legend.ticks = element_line(colour = "black", linewidth = 0.5))
    ))
  )

^{Created on 2024-12-16 with reprex v2.1.1}