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"))

我的图表太长了。我希望它看起来像这样。

请帮帮我，谢谢...