inst/examples/R/data/graphics/bar_chart/barchart_example_lattice.R

library("MASS") # for Boston Housing da
library("lattice")
tab2 <- table(Boston$rad, Boston$chas)
ldat <- data.frame(rad=rep(rownames(tab2), 2), 
                   count=as.vector(tab2), 
                   chas=c(rep(colnames(tab2)[1],9), 
                          rep(colnames(tab2)[2],9)))
barchart(count~rad|chas, data=ldat)
sigbertklinke/shinyExample documentation built on May 26, 2019, 4:32 a.m.