web-dev-qa-db-ja.com

grid.arrangeを使用してプロットの幅と高さを指定します

3つのプロットがあり、それらをgrid.arrangeと組み合わせてみます。最後のプロットの高さは最初の2つのプロットより小さく、すべてのプロットの幅は同じでなければなりません。

実例：

p1 <- qplot(mpg, wt, data=mtcars)
p2 <- p1
p3 <- p1 + theme(axis.text.y=element_blank(), axis.title.y=element_blank())

grid.arrange(arrangeGrob(p1,p2, ncol=1, nrow=2),
         arrangeGrob(p3, ncol=1, nrow=1), heights=c(4,1))

enter image description here

ここで、最後のプロットの幅は最初の2つよりも大きくなっています。私の実際のデータでは、y軸にテキストとタイトルを保持していても、3番目のプロットの幅は異なります。

「幅」を追加しようとしました：

 grid.arrange(arrangeGrob(p1,p2, ncol=1, nrow=2),
         arrangeGrob(p3, ncol=1, nrow=1), heights=c(4,1), widths=c(2,1))

しかし、それは2列のプロットに変わります...

enter image description here

私は別のコードも試しました：

p1 <- ggplotGrob(p1)
p2 <- ggplotGrob(p2)
p3 <- ggplotGrob(p3)
# 
stripT <- subset(p2$layout, grepl("spacer", p2$layout$name))
p3 <- p3[-stripT$t, ]

grid.draw(rbind(p1, p2, p3, size = "first"))

私は同じ幅を持っていますが、今では高さを変更する方法がわかりません...

enter image description here

さて、誰かが私に最終的なプロットの高さと幅の両方の側面を組み合わせるのを手伝ってくれますか？

rplotggplot2gridextra
38
Chika

cowplot パッケージのplot_gridを試してください：

library(ggplot2)
library(gridExtra)
library(cowplot)
p1 <- qplot(mpg, wt, data=mtcars)
p2 <- p1
p3 <- p1 + theme(axis.text.y=element_blank(), axis.title.y=element_blank())
plot_grid(p1, p2, p3, align = "v", nrow = 3, rel_heights = c(1/4, 1/4, 1/2))

enter image description here

38
lukeA

gtableでは、パネルの高さを手動で設定する必要があります。

g1 <- ggplotGrob(p1)
g2 <- ggplotGrob(p2)
g3 <- ggplotGrob(p3)

library(gridExtra)
g <- rbind(g1, g2, g3)

set_panel_heights <- function(g, heights){
  g$heights <- grid:::unit.list(g$heights) # hack until R 3.3 comes out
  id_panels <- unique(g$layout[g$layout$name=="panel", "t"])
  g$heights[id_panels] <- heights
  g
}

g <- set_panel_heights(g, lapply(1:3, grid::unit, "null"))
grid::grid.draw(g)

enter image description here

少し冗長ですが、このアプローチは相対的な高さを指定するよりも一般的です。あらゆる種類のグリッドユニットを混在させることができ、

grid::grid.newpage()
g <- do.call(rbind, replicate(3, ggplotGrob(ggplot()), simplify = FALSE))
g <- set_panel_heights(g, list(unit(1,"in"), unit(1,"line"), unit(1,"null")))
grid::grid.draw(g)

enter image description here

8
baptiste