私は、2 つのグラフを互いに重ね合わせようとしました (すべきではない理由をすべて知っています)。過去にビューポートを使用したとき、2 つの画像が重なり合っていたことを覚えています。したがってgrid、あるグラフィックを別のグラフィックで上書きすることはありません。以下の MWE では、2 つ目のグラフィックを重ねて印刷しようとすると、1 つのグラフィックが削除されます。
私は何を間違っていますか？ありがとう
library(grid)
library(ggplot2)
date=seq(as.Date('2012-04-01',"%Y-%m-%d"),as.Date('2013-03-27','%Y-%m-%d'),1)
tp1=data.frame(Date=date,bond=rnorm(361,100,2),equity=rnorm(361,60,15))
vp=viewport(x=0.5,y=0.5,height=1,width=1)
a = ggplot(tp1,aes(Date,bond)) + geom_line(colour=I("blue")) + xlim(range(tp1$Date))
b = ggplot(tp1,aes(Date,equity)) + geom_line(colour=I("red")) + xlim(range(tp1$Date))
print(a,vp=vp)
print(b,vp=vp)