Angela Zoss
October 15, 2016
Order by semantics
data$answer <-
factor(data$answer,
levels=c("None","A little", "Some", "A lot"),
ordered = TRUE)
Order by value
data$academic_field <-
factor(data$academic_field,
levels=names(
sort(
table(
data$academic_field),decreasing=TRUE)))
coord_flip()
Oops!
data$academic_field <-
factor(data$academic_field,
levels=names(
sort(
table(data$academic_field),
decreasing=TRUE)))
data$academic_field <-
factor(data$academic_field,
levels=names(
sort(
table(data$academic_field))))
fill=highest_degree
facet_grid(.~highest_degree)
scale_x_discrete(drop=FALSE)
scale_y_continuous(limits=c(0,40),breaks=c(0,10,20,30,40),minor_breaks=NULL)
scale_fill_manual(
values=c("snow4","snow3",
"tan3","tan1",
"turquoise2","turquoise4"))
scale_fill_manual(
values=c("#fee391","#fe9929", "#cc4c02"))
# Also see package RColorBrewer
scale_fill_brewer(palette="BrBG")
slides: URL