72 lines
1.1 KiB
R
72 lines
1.1 KiB
R
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)
|
|
)
|