ggplot2を使用して2つの異なるY軸のプロットをオーバーレイする

Question

同じx軸（年月日（yr））を持つがy軸が異なる2つの異なるプロット（1つのボックスプロットと1つのラインプロット） （ボックスプロットはフォーク長（fl）であり、ラインプロットはハーベスト（har）です）。これらのデータは異なるデータフレーム内にある。私が使っているコードのシンプルなバージョンは次のとおりです。

p1 <- ggplot(biojay, aes(yr, fl))+ 
geom_boxplot(colour="black", fill="dark gray")+ 
theme_bw()+ 
theme(panel.grid.major=element_blank())+ 
scale_y_continuous(limits=c(300,900), breaks=breaks1)+  
xlab("Year")+            
ylab("Fork Length (mm)")+         
theme(axis.title=element_text(size=14))+  
theme(axis.text=element_text(size=12))+  
theme(axis.text.x=element_text(angle=45, hjust=1)) 

p2 <- ggplot(har, aes(yr2, harjay))+ 
geom_line(linetype = "solid", color="red", size=1.25)+ 
theme_bw()+ 
theme(panel.grid.major=element_blank())+ 
scale_y_continuous(position="right") + 
xlab("Year")+           
ylab("Harvest (kg)")+ 
theme(axis.title=element_text(size=14))+  
theme(axis.text=element_text(size=12))+  
theme(axis.text.x=element_text(angle=45, hjust=1)) 

私は私がオンライン発見したこれらの使用して、複数の方法を組み合わせることを試みたが、何も私のために動いていないようにみえます。アドバイスをいただければ幸いです。

Answer 1

p1 = qplot(1:10,1) 
p2 = qplot(1:10,1:10) + theme_minimal() 

print(p1) 
print(p2, newpage=FALSE)