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")
Run the code above in your browser using DataLab