R/cloud_pie.R

In matt-dray/dray: Personal Package of Matt Dray

#' Cloud Pie: A Totally Unnecessary Frankenstein's Monster.
#'
#' An unholy matrimony of a 3D exploded pie chart and a word cloud. You're welcome. Just promise you'll never, ever use this function.
#' @param data Summary dataframe with two columns: categories, and counts for those categories.
#' @param name_col Column containing the category name (character).
#' @param count_col Column containing the counts for each category (numeric).
#' @keywords pie, wordcloud, ohgodmyeyes
#' @import plotrix
#' @import wordcloud
#' @export
#' @examples
#' library(dplyr)
#'
#' data <- read.csv("https://raw.githubusercontent.com/matt-dray/draytasets/master/ssb_pokeballs.csv")
#'
#' pkmn <- data %>%
#'   group_by(pokemon) %>%
#'   count() %>%
#'   ungroup()
#'
#' cloud_pie(
#'   data = pkmn,
#'   name_col = "pokemon",
#'   count_col = "n"
#' )

cloud_pie <- function(data, name_col, count_col, ...){

  pie3D(
    x = data[[count_col]],
    explode = 0.5,
    shade = 0.5,
    theta = 1,
    col = rainbow(nrow(data)),
    radius = 0.5,
    border = "white"
  )

  par(new = TRUE)

  wordcloud(
    words = data[[name_col]],
    freq = data[[count_col]],
    colors = sample(colors(), nrow(data)),
    ordered.colors = TRUE,
    vfont = c("gothic english", "plain")
  )

}