# NOT RUN {
T1 <- xtabs(~type + response, data = Hodgkin)
T1
barplot(t(T1), legend = TRUE, beside = TRUE)
# }
# NOT RUN {
library(ggplot2)
ggplot2::ggplot(data = Hodgkin, aes(x = type, fill = response)) +
geom_bar(position = "dodge") +
theme_bw()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab