ggplot2 grid.arrangeの2つのプロットを2番目のインセットと共にR

Question

に追加しました。インセットを印刷し、ggplotsのプロットからグリッドを作成することができました。しかし、私は左のプロットと右のフルサイズの2つのプロットと "インセット"の他のグリッドを作成することはできません。

a_plot <- ggplot(cars, aes(speed, dist)) + geom_line() 

#The inset 
print(a_plot);print(a_plot, vp = vp) 

# the Grid 
lay <- rbind(c(1,1,1,2,2,2), 
      c(1,1,1,2,2,2), 
      c(1,1,1,2,2,2), 
      c(1,1,1,2,2,2)) 
grid.arrange(a_plot, a_plot,layout_matrix = lay) 

しかし、私はこれを持っているしたいと思います：

私はこれをどのように行うことができますか？

これは私がthisを試してみました

grid.arrange(a_plot, a_plot,print(a_plot, vp = vp),layout_matrix = lay) 

動作しません、それはどちらか動作しませんでした。

Answer 1

a_plot <- ggplot(cars, aes(speed, dist)) + geom_line() 
b_plot <- a_plot + annotation_custom(grob = rectGrob(), 
         xmin = 15, xmax = Inf, ymin=-Inf, ymax=25) 


grid.arrange(a_plot, b_plot, ncol=2)