gg_donut.R

require(ggplot2)

gg_donut = function(x, lab, textsize = 5){
  ggplot() +
    geom_rect(aes(ymax = c(100, x), ymin = 0, xmax = 4, xmin = 3.2, fill = c('A','B'))) +
    geom_text(aes(y = 0, x = 0, label = paste0(round(x,1), '%')), size = textsize) +
    coord_polar(theta="y") + xlim(c(0, 4)) +
    scale_y_continuous(limits = c(0,100)) +
    scale_fill_manual(values = c('grey80','dodgerblue2')) +
    labs(title = lab) +
    theme_void() + 
    theme(plot.title = element_text(hjust = 0.5)) +
    guides(fill = 'none')
}

#' Example usage
#' 
#' gg_donut(45, 'Retweets')
#' 
#' if(require(patchwork)){
#'    gg_donut(45, 'Retweets') + gg_donut(15, 'Links') + gg_donut(100*2/3, 'Hashtags')
#' }
#'