library(ggblanket)
library(ggplot2)
library(palmerpenguins)
set_blanket(
alpha_recursive = 1,
)
penguins |>
gg_bar(
y = species,
col = island,
mapping = aes_colour_darken(amount = 0.2),
width = 0.75,
)
penguins |>
gg_bar(
y = species,
col = island,
mapping = aes(!!!aes_colour_darken(amount = 0.2)),
width = 0.75,
)
Run the code above in your browser using DataLab