# Output = http://gbytes.gsood.com/2013/11/02/the-fairest-of-them-all/ | |
# Uses cces_recode.R here: https://github.com/soodoku/in-n-out/scripts/cces_recode.R | |
# Plotting the fairest of all media | |
library(lattice) | |
png("fairmedia.png") | |
dotplot(t(t(table(droplevels(cces06$fairmedia[cces06$fairmedia != "Don't know"]), cces06$pid3[cces06$fairmedia != "Don't know"]))/colSums(table(droplevels(cces06$v2112[cces06$fairmedia != "Don't know"]), cces06$pid3[cces06$fairmedia != "Don't know"]))), | |
main = "Which network do you think provides the \n fairest coverage of national news?", | |
xlab = list(label = ""), | |
par.settings = simpleTheme(col = c("blue", "grey", "red")), | |
auto.key = list(space = "bottom", columns = 3, x = .6, y = .7, corner = c(0, 0))) | |
dev.off() |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment