Feature request: support labelling every nth break

[davidhodge931]

This is particularly useful when facetting. You can do it with a function, but it is complex code, and doesn't seem to integrate with the other scales labelling functions. It'd be be nice as an argument in the label_* functions.

It could look like scales::label_*(..., nth = 1, ...) where 1 would mean label every break, 2 would mean label every second, and 3 every third

library(palmerpenguins)
library(tidyverse)

penguins %>%
  ggplot() +
  geom_jitter(aes(x = sex, y = body_mass_g)) +
  scale_y_continuous(breaks = scales::breaks_pretty(20),
                     labels = \(x) replace(x, seq_along(x)%%2==0, "")) +
  theme_classic()
#> Warning: Removed 2 rows containing missing values (`geom_point()`).

^{Created on 2023-07-22 with reprex v2.0.2}

[davidhodge931]

label_nth <- function(x, nth = 1) replace(x, seq_along(x)%%nth!=0, "")

[davidhodge931]

I think this would work better in stringr