Пришло к графикам:
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,0,0), "lines"))
и
pl2 <- qplot(x=trade.date, y=adj1, 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,0,0), "lines"))
Используйте align.plot (from ggExtra)
для выравнивания графиков (вместо 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, pl2), filename = "file.png", :
plot should be a ggplot2 plot
Как сохранить файл align.plot?