data("diamonds", package = "ggplot2")
# Stack bar type
apex(
data = diamonds,
mapping = aes(x = cut)
) %>%
ax_plotOptions(
bar = bar_opts(endingShape = "rounded", columnWidth = "10%")
)
# Pie
apex(
data = diamonds,
mapping = aes(x = cut),
type = "pie"
) %>%
ax_plotOptions(
pie = pie_opts(customScale = 0.5)
)
# Radial
apexchart() %>%
ax_chart(type = "radialBar") %>%
ax_plotOptions(
radialBar = radialBar_opts(
hollow = list(size = "70%")
)
) %>%
ax_series(70) %>%
ax_labels("Indicator")
Run the code above in your browser using DataLab