56 lines
1.0 KiB
R
56 lines
1.0 KiB
R
|
|
# ------------------------------------------------------------------------
|
|
#
|
|
# 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"))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|