improve colour bar defaults

[davidhodge931]

improve colour bar defaults

[davidhodge931]

library(ggplot2)
library(dplyr)
library(palmerpenguins)
library(ggblanket)
library(patchwork)

set_blanket()

p1 <- penguins |>
  mutate(across(sex, \(x) stringr::str_to_sentence(x))) |>
  gg_point(
    x = flipper_length_mm,
    y = body_mass_g,
    col = bill_length_mm,
    col_palette = viridis::viridis(20, option = "G"),
    # mode = light_mode_t(),
    col_breaks = scales::breaks_pretty(4),
    col_steps = FALSE,
  )

p2 <- p1 + 
  theme(legend.ticks.length = ggplot2::rel(c(0.175, 0))) +
  theme(legend.ticks = element_line(colour = lightness[3], linewidth = linewidthness[1])) 

p1 + p2

# p3 <- p1 + 
#   theme(legend.ticks.length = rel(c(-0.175, 0))) +
#   theme(legend.ticks = element_line(colour = lightness[3], linewidth = linewidthness[1])) 
# 
# p2 + p3

[davidhodge931]

Done :)