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