log: support symmetric axes

[davidhodge931]

library(tidyverse)
#> Warning: package 'ggplot2' was built under R version 4.4.1

library(ggblanket)

set_blanket()

pressure |>
  gg_point(
    x = temperature,
    y = pressure,
    y_transform = "log", 
  ) 
#> Warning: Position guide is perpendicular to the intended axis.
#> ℹ Did you mean to specify a different guide `position`?

pressure |>
  gg_point(
    x = temperature,
    y = pressure,
    y_transform = "pseudo_log", 
  ) 

pressure |>
  gg_point(
    x = temperature,
    y = pressure,
    y_transform = transform_log(),
    y_breaks = scales::breaks_log(), #doesn't incorporate data as no only.loose argument
  )
#> Error in transform_log(): could not find function "transform_log"

^{Created on 2024-07-20 with reprex v2.1.0}

[davidhodge931]

Changed breaks to default to breaks_log

For symmetric axes, just need {scales} to provide an only.loose argument, so this can be added in and able to always work

[davidhodge931]

library(tidyverse)
library(ggblanket)
library(palmerpenguins)
  
set_blanket()

penguins |>
  gg_point(
    y = flipper_length_mm,
    x = species,
    y_transform = "log10",
  ) +
  theme(plot.background = element_rect(fill = "grey"))

penguins |>
  gg_point(
    y = flipper_length_mm,
    x = species,
    y_transform = "log10",
    y_symmetric = FALSE,
  ) +
  theme(plot.background = element_rect(fill = "grey"))

^{Created on 2024-07-21 with reprex v2.1.0}