GGplotとgridExtraを1つのプロットで作成facet_grid - スケールに合わせるにはどうすればいいですか？

Question

grid.arrange()を使用して2つのプロットを1つにまとめています。ただし、プロットの1つはfacet_gridを使用して作成され、その右側に追加のテキストが表示されます。したがってスケールが完全に一致していない私はスケールが10 9 9上など、10の上方に、完全に上またはお互いの下になりたい

（下図を参照）。誰でもこれを達成する方法を助けることができますか？私はfacet_gridからテキストを削除する必要がありますか？もしそうなら、私はどうすればいいのですか？これは、上の写真に見られるようにと、以下の出力が得られます

g1 <- ggplot() + 
    geom_point(data = neu1, aes(x = AGE, y = costs, 
           colour = Type, shape = Type), 
      size = 3)+ 
    scale_x_continuous(limits = c(-1,10), breaks = seq(0,10,1))+ 
    ylab("Costs") 

g2 <- ggplot() + 
    geom_point(data = neu1, aes(x = AGE, y = costs, 
           colour = Type, shape = Type), 
      size = 3)+ 
    scale_x_continuous(limits = c(-1,10), breaks = seq(0,10,1))+ 
    ylab("Costs")+ 
    facet_grid(Type ~.) 
grid.arrange(g1,g2, nrow = 2) 

私の問題を説明するための

EDIT Exampe、この例のための2つのプロットはあまり意味がありません、それだけのためであります図。

ご覧のとおり、各数値のグリッド線は互いに上にありません。たとえば、上のプロットのAGE 10は下のプロットよりも右側にあります。もう一度、ありがとう！

Answer 1

theme（）の "strip"引数を持つファセットラベルを削除することができます。

p + theme(strip.text = element_blank(), 
    strip.background = element_blank()) 

ここで、pは元のポストからのファセットプロットです。