R/percent_donut_svg.R

In mienkoja/oliveR: A package for extracting data from the oliver SMS replica and creating measurements

percent_donut_svg = function(proportion = .4
                                ,fill = c("#FC4A1A", "#DFDCE3")
                                ,thickness_out = 4
                                ,thickness_in = 3){
  
  # Create test data.
  # proportion <- .4
  # dat1 <- data.frame(prop=c(proportion, 1-proportion))
  # 
  # 
  # # Add addition columns, needed for drawing with geom_rect.
  # dat1$fraction <- dat1$prop / sum(dat1$prop)
  # #dat <- dat[order(dat$fraction), ]
  # dat1$ymax <- cumsum(dat1$fraction)
  # dat1$ymin <- c(0, head(dat1$ymax, n=-1))
  # dat1$fill <- factor(fill, levels = fill[order(fill)])
  # 
  # proportion <- .6
  
  dat <- data.frame(prop=c(proportion, 1-proportion))
  
  
  # Add addition columns, needed for drawing with geom_rect.
  dat$fraction <- dat$prop / sum(dat$prop)
  #dat <- dat[order(dat$fraction), ]
  dat$ymax <- cumsum(dat$fraction)
  dat$ymin <- c(0, head(dat$ymax, n=-1))
  dat$fill <- factor(fill, levels = fill[order(fill, decreasing = TRUE)])
  
  
  plot <- dat %>%     
    ggplot(aes(fill=fill
               ,ymax=ymax
               ,ymin=ymin
               ,xmax=thickness_out
               ,xmin=thickness_in)) +
    scale_fill_manual(values = fill) +
    coord_polar(theta='y') +
    xlim(c(0
           ,thickness_out)) +
    theme_void() +
    guides(fill = 'none') +
    geom_rect() 
  
  grob <- ggplotGrob(plot)
  
  gridsvg(sys.frame(1))
  
  grid.draw(grob)
  
  svg <- grid.export(name = NULL
                     ,htmlWrapper = TRUE)
  
  svg_only <- paste0(capture.output(svg$svg, file = NULL), collapse = '\n')
  
  grDevices::dev.off(which = dev.cur())
  
  return(svg_only)
  
}