tutorial - superponer graficas en r ggplot

Cómo ajustar la posición del título en ggplot2

Question

Aquí está el código:

require(ggplot2)
require(grid)
# pdf("a.pdf")
png(''a.png'')
a <- qplot(date, unemploy, data = economics, geom = "line") + opts(title=''A'')
b <- qplot(uempmed, unemploy, data = economics) + geom_smooth(se = F) + opts(title=''B'')
c <- qplot(uempmed, unemploy, data = economics, geom="path") + opts(title=''C'')
grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 2)))
vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y)
print(a, vp = vplayout(1, 1:2))
print(b, vp = vplayout(2, 1))
print(c, vp = vplayout(2, 2))
dev.off()

Y el resultado:

Si bien esto es lo que me gustaría tener, es decir, posicionar los títulos cerca de la parte superior del eje y:

Answer 1

Lo que estás buscando es theme(plot.title = element_text(hjust = 0)) . Por ejemplo, usando la última versión de ggplot2 y theme lugar de opts , tenemos

a <- qplot(date, unemploy, data = economics, geom = "line") + ggtitle("A") +
  theme(plot.title = element_text(hjust = 0))

Alternativamente, quedando con opts

a <- qplot(date, unemploy, data = economics, geom = "line") + 
  opts(title = "A", plot.title = element_text(hjust = 0))