2015-05-04 13 views

Odpowiedz

10

Oto rozwiązanie przy użyciu grid.text:

library("grid") 
qplot(rnorm(100)) + theme(plot.margin=unit(c(0.5, 1, 2, 0.5), "lines")) 
grid.text("My Title", x = unit(0.5, "npc"), y = unit(0, "npc"), 
      vjust = -0.5, gp = gpar(cex=1.2)) 

plot

+0

Działa, ale gdy próbuję zapisać jako PDF (używając ggsave), nie widzę tytułu !!! –

+0

Musisz bezpośrednio otworzyć/zamknąć urządzenie: 'pdf (" file.pdf "); print (qplot (...)); grid.text (...); dev.off() ' – rcs

2

W wersji dev można użyć argumentu napisami,

ggplot() + 
    labs(caption="Bottom Title") + 
    theme(plot.caption = element_text(hjust=0.5, size=rel(1.2))) 

Alternatywnie, owinąć Działka w grid.arrange(),

gridExtra::grid.arrange(ggplot(), bottom="Bottom Title") 

enter image description here

Powiązane problemy