With a little bit of work, you can combine your plot with a dummy gtable that has the right grobs, d <- data.frame(fruit = rep(c(“apple”, “orange”, “plum”, “banana”, “pear”, “grape”)), farm = rep(c(0,1,3,6,9,12), each=6), weight = rnorm(36, 10000, 2500), size=rep(c(“small”, “large”))) p1 = ggplot(data = d, aes(x = farm, y = weight)) + geom_jitter(position = … Read more
If I remember right, there were questions on both how to add all labels to the same line under the last column and how to lift these last labels up to the next row. So here is the function for both cases: Edit: since this is like a substitute for print.ggplot (see getAnywhere(print.ggplot)) I have … Read more
Meh, @joran beat me to it (my gridExtra was out of date but took me 10 minutes to realize it). Here’s a similar solution, but this one skins the cat generically by levels in Server. library(gridExtra) out <- by(data = x, INDICES = x$Server, FUN = function(m) { m <- droplevels(m) m <- ggplot(m, aes(Date, … Read more
Typically you’d do something like this: ann_text <- data.frame(mpg = 15,wt = 5,lab = “Text”, cyl = factor(8,levels = c(“4″,”6″,”8”))) p + geom_text(data = ann_text,label = “Text”) It should work without specifying the factor variable completely, but will probably throw some warnings: