require(ggplot2)
require(Cairo)
require(grid)
p = ggplot(iris,aes(x = Species,y = Sepal.Length,colour = Species))
p+geom_point()
a = p+geom_point()
b = qplot(Sepal.Length,Petal.Length,data=iris,geom="point",colour = Species)
c = qplot(Species,Sepal.Width,data=iris,geom="boxplot",fill = Species)
#创建新的画图页面
grid.newpage()
pushViewport(viewport(layout = grid.layout(,)))
vplayout = function(x,y)viewport(layout.pos.row = x,layout.pos.col = y)
print(a,vp = vplayout(,:))
print(b,vp = vplayout(,))
print(c,vp = vplayout(,))
ggsave("test_layout.pdf",width = ,height = )
dev.off()
R语言画图布局摆放(layout)的相关教程结束。
