simple two way table

> barplot(smoke,legend=T,beside=T,main='Smoking Status by SES')
> smoke <- matrix(c(51,43,22,92,28,21,68,22,9),ncol=3,byrow=TRUE)
> colnames(smoke) <- c("High","Low","Middle")
> rownames(smoke) <- c("current","former","never")
> smoke <- as.table(smoke)
>
> smoke
        High Low Middle
current   51  43     22
former    92  28     21
never     68  22      9
> barplot(smoke,legend=T,beside=T,main='Smoking Status by SES')