R/spinner_plot.R

In bayesball/TeachBayes: Teaching Bayesian Inference

spinner_plot <- function(probs, ...){
   args <- list(...)
   if("values" %in% names(args))
     values <- args$values else
     values <- seq_along(probs)
   Region <- factor(values)
   y <- probs
   df <- data.frame(Region, y)
   TH <- theme(
     plot.title = element_text(
       colour = "blue",
       size = 18,
       hjust = 0.5,
       vjust = 0.8,
       angle = 0
     )
   )
   p <- ggplot(df, aes(1, y, fill=Region)) +
   geom_bar(stat="identity", color = "black") +
   coord_polar(theta = "y", direction=1) +
     xlab("") + ylab("") +
     theme(
       axis.text.x = element_blank(),
       axis.text.y = element_blank(),
       axis.ticks = element_blank())
   if ("title" %in% names(args))
     p <- p + ggtitle(args$title) + TH
   p
}