search for: mf_labeller

Displaying 1 result from an estimated 1 matches for "mf_labeller".

2012 Jun 27
0
ggplot2 ordering in a faceted dotplot.
...scale_y_continuous("Annual number of days absent") + scale_x_discrete("Industry Groups") p # faceted dotplot for 2001 & 2011 mdata <- melt(mdata, id=c("group")) # function to set facet labels. mf_labeller <- function(var, value){ value <- as.character(value) if (var=="variable") { value[value=="absent2001"] <- "2001" value[value=="absent2011"] <- "2011" } return(value) } p1 <- ggplot(mdata, aes(x =...