R/examples/ex-colorbar_triangle.R

In rpkgs/gg.layers: ggplot layers

library(ggplot2)

g <- ggplot(mtcars, aes(mpg, wt)) +
  geom_point(aes(colour = drat))

g + scale_colour_viridis_c(
  limits = c(3, 5), oob = scales::oob_squish,
  guide = colourbar_triangle()
)