powered by
Tonsils
str(Tonsils) attach(Tonsils) TON <- as.matrix(Tonsils[,2:3]) rownames(TON) <- Size TON barplot(t(TON),beside=TRUE,legend=TRUE) remove(TON) detach(Tonsils)
Run the code above in your browser using DataLab