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

У меня есть два 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))

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

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