Nothing
# ------------------------------------------------------------------------
#
# Title : Colors
# By : Victor
# Date : 2019-02-20
#
# ------------------------------------------------------------------------
# Packages ----------------------------------------------------------------
library(apexcharter)
library(dplyr)
# Data --------------------------------------------------------------------
data("diamonds", package = "ggplot2")
dcc <- count(diamonds, cut, color)
# Colors ------------------------------------------------------------------
ax <- apex(data = dcc, type = "column", mapping = aes(cut, n, fill = color))
ax
ax %>% ax_theme(palette = "palette3")
ax %>% ax_theme(monochrome = list(
enabled = TRUE,
color = "#112446",
shadeTo = "light",
shadeIntensity = 1
))
ax %>% ax_colors("#1B9E77", "#D95F02", "#7570B3", "#E7298A", "#66A61E", "#E6AB02", "#A6761D")
ax %>% ax_colors(RColorBrewer::brewer.pal(n = 7, name = "Dark2"))
ax %>% ax_fill(colors = RColorBrewer::brewer.pal(n = 7, name = "Dark2"))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.