library(apexcharter)
data("diamonds", package = "ggplot2")
## Stack bar type
# default is dodge
apex(
data = diamonds,
mapping = aes(x = cut, fill = color)
)
# stack
apex(
data = diamonds,
mapping = aes(x = cut, fill = color)
) %>%
ax_chart(stacked = TRUE)
# stack filled
apex(
data = diamonds,
mapping = aes(x = cut, fill = color)
) %>%
ax_chart(stacked = TRUE, stackType = "100%")
# Toolbar --------------------------------------
# Hide the toolbar
apex(
data = diamonds,
mapping = aes(x = cut, fill = color)
) %>%
ax_chart(toolbar = list(show = FALSE))
# Hide download buttons
data("economics", package = "ggplot2")
apex(
data = economics,
mapping = aes(x = date, y = pce),
type = "line"
) %>%
ax_chart(
toolbar = list(tools= list(download = FALSE))
)
# Zoom -----------------------------------------
# Disable
apex(
data = economics,
mapping = aes(x = date, y = pce),
type = "line"
) %>%
ax_chart(
zoom = list(enabled = FALSE)
)
# Auto-scale Y axis
apex(
data = economics,
mapping = aes(x = date, y = pce),
type = "line"
) %>%
ax_chart(
zoom = list(autoScaleYaxis = TRUE)
)
# Localization ---------------------------------
# Use included localization config
dat <- data.frame(
x = Sys.Date() + 1:20,
y = sample.int(20, 20)
)
# French
apex(dat, aes(x, y), "line") %>%
ax_chart(defaultLocale = "fr")
# Italian
apex(dat, aes(x, y), "line") %>%
ax_chart(defaultLocale = "it")
# Custom config
apex(dat, aes(x, y), "line") %>%
ax_chart(locales = list(
list(
name = "en", # override 'en' locale
options = list(
toolbar = list(
exportToSVG = "GET SVG",
exportToPNG = "GET PNG"
)
)
)
))
Run the code above in your browser using DataLab