r - このグラフを短くするにはどうすればよいですか?

Question

私はこのようなグラフを持っています

私のコードはこのようなものです

ggplot(data=m_data, aes(x=factor(madde.sayisi), y= guvenirlik, colour=guvenirlik.kestirimi)) + 
  geom_point(aes(shape=factor(guvenirlik.kestirimi)),size=3) + 
  facet_grid(yontem+orneklem.buyuklugu~formul) + 
  ylim(0.850,1) + 
  scale_shape_discrete(name="guvenirlik.kestirimi") + 
  theme(axis.text = element_text(color="black"))

グラフが長すぎます。私はそれがこのように見えることを望みます。

助けてください、ありがとう...