Experiment
scale_fill_viridis_c
## function (name = waiver(), ..., alpha = 1, begin = 0, end = 1,
## direction = 1, option = "D", values = NULL, space = "Lab",
## na.value = "grey50", guide = "colourbar", aesthetics = "fill")
## {
## continuous_scale(aesthetics, name = name, palette = pal_gradient_n(pal_viridis(alpha,
## begin, end, direction, option)(6), values, space), na.value = na.value,
## guide = guide, ...)
## }
## <bytecode: 0x1248c7430>
## <environment: namespace:ggplot2>
library(scales)
##
## Attaching package: 'scales'
## The following object is masked from 'package:purrr':
##
## discard
## The following object is masked from 'package:readr':
##
## col_factor
my_viridis <- pal_gradient_n(pal_viridis(alpha = .9,
begin = 0, end = .95, direction = 1, option = "D")(6) |> scales::col_mix("lightyellow", .4), values = NULL, space = "Lab")
ggplot(cars) +
aes(speed, dist) +
geom_point(shape = 4,
size = 8) +
aes(color = speed) +
ggchalkboard::theme_chalkboard() +
theme(palette.colour.continuous = my_viridis)
ggchalkboard::theme_chalkboard
## function (paper = "darkseagreen4", ink = alpha("lightyellow",
## 0.6), accent = alpha("orange", 1), base_size = 20, base_theme = theme_classic,
## ...)
## {
## base_theme(paper = paper, ink = ink, base_size = base_size,
## ...) + theme(geom = element_geom(accent = accent), text = element_text(face = "plain"),
## plot.title.position = "plot")
## }
## <bytecode: 0x1268c9e00>
## <environment: namespace:ggchalkboard>