在ggplot2中,我怎样才能完全呈现被y-ticks部分阻挡的ylab?

时间:2014-09-08 02:41:01

标签: r ggplot2 gtable

以下是我原来的问题:

In ggplot2, how can I set y-labs separately for double-panel plots?

**在我使用“baptiste”给出的方法之后,这也是正确的anwser,并且一旦我更改了字大小,单词的一部分就被面板的白边限制了,所以,如何解决这个问题? **

以下是修改其代码的代码:

g = ggplotGrob(p)
g = gtable_add_grob(g, list(textGrob("upper panel", just = "top", rot=90, gp=gpar(fontsize=20)), 

                         textGrob("lower panel", just = "top", rot=90, gp=gpar(fontsize=20))), 

                         t = c(3,5), l = 1)
g$widths[[1]] = unit(1, "line")
grid.newpage()
grid.draw(g)

以下是情节: enter image description here

1 个答案:

答案 0 :(得分:1)

好吧,当您像这样更改字体大小时,请尝试使宽度更宽。或者在这种情况下,将其设置为grobheight的比例

g = ggplotGrob(p)
g = gtable_add_grob(g, 
    ng<-list(textGrob("upper panel", just = "top", rot=90, gp=gpar(fontsize=20)), 
    textGrob("lower panel", just = "top", rot=90, gp=gpar(fontsize=20))), 
    t = c(3,5), l = 1
)
g$widths[[1]] = unit(.5, "grobheight", ng)
grid.newpage()
grid.draw(g)

enter image description here