Указание ширины панели ggplot2 - PullRequest
Новая
       10

Указание ширины панели ggplot2

12 голосов
/ 30 марта 2011

У меня есть два ggplots на одной странице, и я хотел бы, чтобы их панели были одинаковой ширины.

Некоторые примеры данных: 

dfr1 <- data.frame(
  time = 1:10,
  value = runif(10)  
)

dfr2 <- data.frame(
  time = 1:10,
  value = runif(10, 1000, 1001)  
)

Один участок под другим: 

p1 <- ggplot(dfr1, aes(time, value)) + geom_line()
p2 <- ggplot(dfr2, aes(time, value)) + geom_line()

grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 1)))   
print(p1, vp = viewport(layout.pos.row = 1, layout.pos.col = 1))         
print(p2, vp = viewport(layout.pos.row = 2, layout.pos.col = 1))

Как указать ширину и положение панелей на каждом графике, чтобы они выровнялись?

(Я не хочу совмещать графики с огранкой; это не подходит для моего реального примера.)

1 Ответ

13 голосов
/ 31 марта 2011

Исходное решение: 

 #   install.packages("ggExtra", repos="http://R-Forge.R-project.org")
 #   library(ggExtra)
 #   align.plots(p1, p2)

Редактировать (22/03/13):

Поскольку ggExtra больше не существует (и многие внутренние компоненты ggplot2 изменились), лучшеиспользуйте функции объединения (rbind, cbind), предоставляемые пакетом gtable, 

gl = lapply(list(p1,p2), ggplotGrob)     
library(gtable)
g = do.call(rbind, c(gl, size="first"))
g$widths = do.call(unit.pmax, lapply(gl, "[[", "widths"))

grid.newpage()
grid.draw(g)

enter image description here

...