#' Donut chart
#' @inherit Pie
#' @export
Donut <- function(x,
colors = NULL,
pie.subslice.colors = NULL,
pie.subslice.colors.repeat = TRUE,
title = "",
title.font.family = global.font.family,
title.font.size = 16,
title.font.color = global.font.color,
subtitle = "",
subtitle.font.family = global.font.family,
subtitle.font.size = 12,
subtitle.font.color = global.font.color,
footer = "",
footer.font.family = global.font.family,
footer.font.size = 8,
footer.font.color = global.font.color,
footer.wrap = TRUE,
footer.wrap.nchar = 100,
pie.data.threshold = NULL,
pie.values.order = "initial",
data.label.format = "",
data.label.prefix = "",
data.label.suffix = "",
data.label.font.size = 10,
data.label.font.color = global.font.color,
data.label.font.family = global.font.family,
hovertext.font.family = global.font.family,
hovertext.font.size = 10,
hovertext.font.color = NULL,
hovertext.bg.color = NULL,
hovertext.bg.opacity = 0.8,
pie.groups.font.size = data.label.font.size,
pie.groups.font.color = data.label.font.color,
pie.groups.font.family = data.label.font.family,
pie.groups.order = "initial",
pie.inner.radius = 70,
pie.border.color = rgb(255, 255, 255, maxColorValue = 255),
global.font.family = "Arial",
global.font.color = rgb(44, 44, 44, maxColorValue = 255))
{
cl <- match.call()
cl <- c(cl[1], lapply(cl[-1], evalc, env = parent.frame()))
cl <- as.call(cl)
cl <- cl[-1]
cl$type <- "Donut"
if (is.null(cl$pie.inner.radius))
cl$pie.inner.radius <- 70
result <- do.call(Pie, as.list(cl))
attr(result, "ChartType") <- "Doughnut"
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.