title.r

library(ggplot2)

library(grid)

p <- qplot(1,1) + labs(y="y title") + 
  theme(axis.title.y = element_text(angle = 0))

g <- ggplotGrob(p)

id <- which(g$layout$name == "ylab-l")
h <- grobHeight(g$grobs[[id]]) # doesn't seem to be defined
pos <- g$layout[id, "t"]-1
g <- gtable::gtable_add_rows(g, unit(2,"line"), pos = pos)

g$layout[id, c("l", "r", "t", "b")] <- g$layout[id, c("l", "r", "t", "b")] + c(1,1,-1,-1)


grid.newpage()
grid.draw(g)

Thanks! Seems like the same approach @thomasp85 came up with: https://gist.github.com/bhaskarvk/229cca8dfd067cfbcb3074c85b950abb#file-orgs_by_size-csv

oh, didn't see that. That's the problem with people posting questions on random forums, duplication of efforts, and difficulty in finding them. I usually say no to anything that's not on SO these days, I guess that's a good reminder to stick to the rule