Exploratory Data Analysis in R
Andrew Bray
Assistant Professor, Reed College
table(comics$id)
No Dual Public Secret Unknown
1511 6067 7927 9
tab_cnt <- table(comics$id, comics$align)
tab_cnt
Bad Good Neutral
No Dual 474 647 390
Public 2172 2930 965
Secret 4493 2475 959
Unknown 7 0 2
ggplot(comics, aes(x = id)) +
geom_bar()
tab_cnt <- table(comics$id, comics$align)
tab_cnt
Bad Good Neutral
No Dual 474 647 390
Public 2172 2930 965
Secret 4493 2475 959
Unknown 7 0 2
ggplot(comics, aes(x = id)) +
geom_bar() +
facet_wrap(~align)
Exploratory Data Analysis in R