Treemap function in R

gizRegion.R

#########################################
### quick example with Regional distribution
#########################################
library(treemap)

# df <- bc2_BC
# var <- "DistName"

ggTreeMap <- function(df=bc2_BC,var,pngname="tree"){
  
  tab.df <- as.data.frame(table(df[[var]]))
  tab.df$val = round(tab.df$Freq / sum(tab.df$Freq),2)*100
  tab.df$label <- paste(paste(paste(tab.df$Var1, tab.df$Freq, sep = ", "),
                              tab.df$val, sep = ", "),"%", sep = "")

  file <- paste(paste("./Pictures/",pngname,sep = ""),".png",sep = "")
  
  png(filename=file,width=450, height=250)
treemap(tab.df,
      index = c("label"),
      vSize = "val",
      vColor = "Freq",
      type = "value",
      palette = "RdBu")
dev.off()
}

ggTreeMap(var = "DistName",pngname = "region_treemap")

Looks pretty good!

By the way, don't add the image as PNG, rather as a file in the gist.