apexcharter/inst/examples/radial.R

91 lines
1.8 KiB
R

# ------------------------------------------------------------------------
#
# Title : Radial charts
# By : Victor
# Date : 2018-09-07
#
# ------------------------------------------------------------------------
# Packages ----------------------------------------------------------------
library(apexcharter)
# Basic -------------------------------------------------------------------
apexchart() %>%
ax_chart(type = "radialBar") %>%
ax_plotOptions(
radialBar = radialBar_opts(
hollow = list(size = "70%")
)
) %>%
ax_series(70) %>%
ax_labels("Indicator")
# Stroked gauge -----------------------------------------------------------
apexchart() %>%
ax_chart(type = "radialBar") %>%
ax_plotOptions(
radialBar = radialBar_opts(
startAngle = -135,
endAngle = 135,
dataLabels = list(
name = list(
fontSize = "16px",
# color = undefined,
offsetY = 120
),
value = list(
offsetY = 76,
fontSize = "22px",
# color = undefined,
formatter = htmlwidgets::JS("function (val) {return val + '%';}")
)
)
)
) %>%
ax_stroke(dashArray = 4) %>%
ax_series(70) %>%
ax_labels("Indicator")
apexchart() %>%
ax_chart(type = "radialBar") %>%
# ax_plotOptions(
# radialBar = radialBarOpts(
# startAngle = -135,
# endAngle = 135,
# dataLabels = list(
# name = list(
# fontSize = "16px",
# # color = undefined,
# offsetY = 120
# ),
# value = list(
# offsetY = 76,
# fontSize = "22px",
# # color = undefined,
# formatter = htmlwidgets::JS("function (val) {return val + '%';}")
# )
# )
# )
# ) %>%
# ax_stroke(dashArray = 4) %>%
ax_series(70) %>%
ax_labels("Indicator")