指定ggplot2面板宽度 [英] Specifying ggplot2 panel width

问题描述

我在同一页面上有两个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 b 
 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））
  

如何在每个图表中指定面板宽度和位置，以便让它们排列？

（我不想将这些情节与分面相结合;这在我的现实世界中是不合适的）

解决方案

原始解决方案：

 ＃install.packages（ggExtra，repos =http://R-Forge.R-project.org）
＃library（ggExtra）
＃align.plots（ p1，p2）
  

编辑（22/03/13）：

由于ggExtra不再存在（并且ggplot2的许多内部已经改变），最好使用gtable包提供的合并函数（rbind，cbind）。

  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）
  

I have two ggplots on the same page, and I'd like their panels to be the same width.

Some sample data:

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

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

One plot below the other:

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))

How do I specify the panel widths and positions in each plot, in order to make them line up?

(I don't want to combine the plots with faceting; it isn't appropriate in my real-world example.)

解决方案

Original solution:

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

Edit (22/03/13):

Since ggExtra doesn't exist anymore (and many internals of ggplot2 have changed), it's better to use the merging functions (rbind, cbind) provided by the gtable package,

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)    

这篇关于指定ggplot2面板宽度的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！