Странное пространство на сетке. Странный сюжет

Я пытаюсь добавить сноску на график grid.arrange. Я представил свою идею в этом воспроизводимом примере: )

library(ggplot2)
library(gridExtra)
library(grid)
library(gtable)

summary(anscombe)

p1 <- ggplot(anscombe) + geom_point(aes(x1, y1), color = "darkorange", size = 3) + theme_bw() 

p2 <- ggplot(anscombe) + geom_point(aes(x2, y2), color = "darkorange", size = 3) + theme_bw()

p3 <- ggplot(anscombe) + geom_point(aes(x3, y3), color = "darkorange", size = 3) + theme_bw()

p4 <- ggplot(anscombe) + geom_point(aes(x4, y4), color = "darkorange", size = 3) + theme_bw() 

title <- textGrob("Some title",
              gp=gpar(fontsize=20,fontface=2))

source1<- textGrob("Source: https://rpubs.com/neilfws/91339",
              hjust=0,x=0,y=1,
              gp=gpar(fontsize=10,fontface=3))

grid.arrange(arrangeGrob(p1,p2,p3,p4, ncol=2, sub = source1), top = title)

Этот код генерирует эту картинку:

 введите описание изображения здесь

с огромным пространством под графиками. Как избавиться от этого? Почему он создан?

7 голосов | спросил peter_c 23 MarpmWed, 23 Mar 2016 13:44:25 +03002016-03-23T13:44:25+03:0001 2016, 13:44:25

2 ответа


0

Попробуйте использовать bottom вместо sub:

grid.arrange(arrangeGrob(p1,p2,p3,p4, ncol=2, bottom = source1), top = title)

 введите описание изображения здесь

ответил beetroot 23 MarpmWed, 23 Mar 2016 13:49:33 +03002016-03-23T13:49:33+03:0001 2016, 13:49:33
0

Одним из простых способов является использование этого кода:

grid.arrange(arrangeGrob(p1,p2,p3,p4, ncol=2, sub = source1), top = title, heights = c(50,-15))

И изменяй высоту, пока не получишь заслуженный интервал. Я добился этого только установки этого параметра с показанными значениями:

 введите описание изображения здесь

ответил User 6683331 25 FebruaryEurope/MoscowbSun, 25 Feb 2018 00:19:39 +0300000000amSun, 25 Feb 2018 00:19:39 +030018 2018, 00:19:39

Похожие вопросы

Популярные теги

security × 330linux × 316macos × 2827 × 268performance × 244command-line × 241sql-server × 235joomla-3.x × 222java × 189c++ × 186windows × 180cisco × 168bash × 158c# × 142gmail × 139arduino-uno × 139javascript × 134ssh × 133seo × 132mysql × 132