NEW/mosaic_for_tables.R

In gmonette/spida2: Collection of tools developed for the Summer Programme in Data Analysis 2000-2012

# 2019_12_22
# Stacked Bar Plot with Colors and Legend
# Turn this into a method for tables to do simple 'mosaic plots'


counts <- table(mtcars$vs, mtcars$gear)
barplot(counts, main="Car Distribution by Gears and VS",
  xlab="Number of Gears", col=c("darkblue","red"),
  width = c(.2,.3,3),
  space = .01,
  legend = rownames(counts))




barchart(counts, 
         box.width = c(1,2)/3,
         subscripts = TRUE,
         panel = function(...) panel.barchart2(..., reference = FALSE),
         horizontal = FALSE)

library(latticeExtra)
library(spida2)
barchart(counts)
barchart
methods(barchart)
ga(barchart.formula)
ga <- getAnywhere
panel.barchart2