color_scheme_set("blue")
color_scheme_view()
color_scheme_get()
color_scheme_get(i = c(3, 5)) # 3rd and 5th colors only
color_scheme_get("brightblue")
color_scheme_view("brightblue")
# compare multiple schemes
color_scheme_view(c("pink", "gray", "teal"))
color_scheme_view(c("viridis", "viridisA", "viridisB", "viridisC"))
color_scheme_set("pink")
x <- example_mcmc_draws()
mcmc_intervals(x)
color_scheme_set("teal")
color_scheme_view()
mcmc_intervals(x)
color_scheme_set("red")
mcmc_areas(x, regex_pars = "beta")
color_scheme_set("purple")
color_scheme_view()
y <- example_y_data()
yrep <- example_yrep_draws()
ppc_stat(y, yrep, stat = "mean") + legend_none()
############################
### Mixing color schemes ###
############################
color_scheme_set("mix-teal-pink")
ppc_stat(y, yrep, stat = "sd") + legend_none()
mcmc_areas(x, regex_pars = "beta")
##########################
### ColorBrewer scheme ###
##########################
color_scheme_set("brewer-Spectral")
color_scheme_view()
mcmc_trace(x, pars = "sigma")
###########################
### Custom color scheme ###
###########################
orange_scheme <- c("#ffebcc", "#ffcc80",
"#ffad33", "#e68a00",
"#995c00", "#663d00")
color_scheme_set(orange_scheme)
color_scheme_view()
mcmc_areas(x, regex_pars = "alpha")
mcmc_dens_overlay(x)
ppc_stat(y, yrep, stat = "var") + legend_none()
Run the code above in your browser using DataLab