在ggplot2中更改绘图尺寸

Question

我想创建一个单独的pdf文件，并使用包ggplot2在其中放置几个​​图。但是，我需要减少一个特定情节的宽度。这是代码：

invisible(pdf("foo.pdf"))
foo <- data.frame(x=rnorm(100), y=rnorm(100), class=factor(sample(2,1000,T)))
ggplot(foo, aes(x=x,y=y))+geom_point() # first plot

# For next plot I want to reduce the width
ggplot(foo, aes(x=class,y=y)) + geom_boxplot()
invisible(dev.off())

怎么做？

Answer 1

您可以在小于整页的视口中打印

library(grid) 
grid.rect(width=unit(0.8, "npc"), gp=gpar(lty=2))
print(qplot(1,1), vp=viewport(width=unit(0.8, "npc")))