Displaying 1 result from an estimated 1 matches for "0571b0".
Did you mean:
057180
2011 Nov 08
3
ggplot2 reorder factors for faceting
...- as.data.frame(cbind(genes, as.numeric(fcData), as.numeric(times), infection, infType))
hp2 <- ggplot(plotData, aes(factor(times), genes)) + geom_tile(aes(fill = scale(as.numeric(fcData)))) + facet_wrap(~infection, ncol=4)
# set scale
hp2 <- hp2 + scale_fill_gradient2(name=NULL, low="#0571B0", mid="#F7F7F7", high="#CA0020", midpoint=0, breaks=NULL, labels=NULL, limits=NULL, trans="identity")
# set up text (size, colour etc etc)
hp2 <- hp2 + labs(x = "Time", y = "") + scale_y_discrete(expand = c(0, 0)) + opts(axis.ticks = theme...