К сожалению, я не понимаю, как это возможно.
Во-первых, он не будет работать с gridExtra
, поскольку arrangeGrob
работает с TableGrob
объектами:
> ggplotGrob(qplot(1:100))
stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
TableGrob (6 x 5) "layout": 8 grobs
z cells name grob
1 0 (1-6,1-5) background rect[plot.background.rect.3349]
2 3 (3-3,3-3) axis-l absoluteGrob[GRID.absoluteGrob.3341]
3 1 (4-4,3-3) spacer zeroGrob[NULL]
4 2 (3-3,4-4) panel gTree[GRID.gTree.3329]
5 4 (4-4,4-4) axis-b absoluteGrob[GRID.absoluteGrob.3335]
6 5 (5-5,4-4) xlab text[axis.title.x.text.3343]
7 6 (3-3,2-2) ylab text[axis.title.y.text.3345]
8 7 (2-2,4-4) title text[plot.title.text.3347]
Внутреннее представление объекта ggpairs
содержит только вызываемые методы, но не фактические грубы:
> str(p1$plots)
List of 9
$ : chr "ggally_diagAxis(ggally_data, ggplot2::aes(x = var1))"
$ : chr "ggally_cor(ggally_data, ggplot2::aes(x = var2, y = var1))"
$ : chr "ggally_cor(ggally_data, ggplot2::aes(x = var3, y = var1))"
$ : chr "ggally_points(ggally_data, ggplot2::aes(x = var1, y = var2))"
$ : chr "ggally_diagAxis(ggally_data, ggplot2::aes(x = var2))"
$ : chr "ggally_cor(ggally_data, ggplot2::aes(x = var3, y = var2))"
$ : chr "ggally_points(ggally_data, ggplot2::aes(x = var1, y = var3))"
$ : chr "ggally_points(ggally_data, ggplot2::aes(x = var2, y = var3))"
$ : chr "ggally_diagAxis(ggally_data, ggplot2::aes(x = var3))"
Всю работу по созданию настоящих гробов выполняет GGally:::print.ggpairs
. Взгляните на исходный код, и вы увидите grid.newpage()
вместе с несколькими popViewport
и pushViewport
. Это означает, что даже низкоуровневый grid
подход (например, описанный здесь) неприменимо, так как ваши grid
конструкции будут перезаписаны GGally:::print.ggpairs
.
Конечно, выход есть всегда. Всегда можно изменить исходный код, хотя я считаю, что это долгий и трудный путь для решения вашей задачи. Я был бы счастлив, если бы ошибся, если кто-нибудь найдет простое решение.
person
tonytonov
schedule
10.06.2014
p1
иp2
относятся к классуggpairs
, который, по-видимому, является недопустимым классом дляarrangeGrob
- person David Arenburg   schedule 10.06.2014p1 <- ggplot(df, aes(var1, var2)) + geom_point(); p2 <- ggplot(df, aes(var2, var3)) + geom_point(); p3 <- ggplot(df, aes(var1, var3)) + geom_point(); p <- arrangeGrob(p1, p2, p3, ncol=3)
- person David Arenburg   schedule 10.06.2014