保存align.plot

如何解决保存align.plot

| 得积：

pl1 <- qplot(x=trade.date,y=price1,data=finalfutff,geom=\'line\')+scale_y_continuous(name=\'\')+scale_x_date(name=\'\',expand=c(0,0))+opts(panel.background=theme_rect(),panel.grid.major=theme_blank(),panel.grid.minor=theme_blank(),plot.margin = unit(c(1,0),\"lines\"))

和

pl2 <- qplot(x=trade.date,y=adj1,\"lines\"))

使用ѭ2对齐图（而不是facet_grid，因为我喜欢在所有图的x轴上都有刻度和文本），但是当我尝试使用ggsave保存文件时：

ggsave(plot=align.plot(pl1,pl2),\"file.png\",width=9.8,height=6.9)

我得到：

Error in ggsave(plot = align.plots(pl1,filename = \"file.png\",: 
  plot should be a ggplot2 plot

如何保存align.plot？     

解决方法

您不能只使用

grid.arrange()

（而不是

align.plot()

），而是使用标准的

png

设备而不是希望ggplot对象的

ggsave()

吗？

dsamp <- diamonds[sample(nrow(diamonds),1000),]
p1 <- qplot(carat,price,data=dsamp,colour=clarity)
p2 <- qplot(carat,colour=clarity,geom=\"path\")
library(gridExtra)
png(\"a.png\")
grid.arrange(p1,p2) # add ncol=2 to arrange as two-column
dev.off()

    ,已编辑 用

align.plots

调用

ggsave

不起作用，因为

align.plots

不返回ggplot类的对象。 这意味着您将必须呼叫其中一个绘图设备，例如

png

或

pdf

。例如：

png(\"filename.png\")
align.plots(pl1,pl2)
dev.off()

有关指定高度，宽度，dpi等的选项，请参见ѭ16。您可能要明确指定高度和宽度，除非您要使用7英寸的默认设置。 有关R支持的所有绘图设备的列表和链接（即png，pdf等），请参见

?Devices