This is a Plot
Add data
library(openintro) data(email)
One variable
tab1 = table(email$number) mosaicplot(tab1, col=c('yellow2', 'skyblue2', 'red'), main='Numbers in emails')
tab2 = table(email$number, email$spam) mosaicplot(tab2, col=c('yellow2', 'skyblue2'), main='Numbers in emails vs spam/not spam')