如何使用ggplot绘制许多图形

Question

我想用51张图作图。而且我想将图形分为3列和17行，因此我将获得尺寸合适的图形。以下代码的结果垂直压缩了图形。如果有人可以帮助解决此问题，我将不胜感激。

    p<-ggplot(results, aes(x=lidar, y=zval, col=meas)) + 
  geom_violin(aes(x=lidar, y=zval, group=lidar, fill=lidar), inherit.aes = FALSE)+  guides(fill=FALSE)+
  scale_fill_manual(values=c("lightblue", "lightgreen"))+
  geom_jitter(aes(alpha=signif, shape=meas), size=3, color="black") + 
  scale_shape_manual(values=1:nlevels(as.factor(results$meas))) +
  facet_wrap(~species, ncol=3, drop = FALSE) + geom_abline(intercept = 1.96, slope = 0, col="orange")+
  theme(strip.text.x = element_text(size = 13, margin = margin()), axis.title = element_text(size=35,face="bold"),
        axis.text=element_text(size=25), legend.text = element_text(size=25), legend.title = element_text(size=25))+
  labs(y = "Z value", x="Sensors", shape="Metrics")+guides(alpha=FALSE)

Answer 1

以下内容将删除沿Y轴（0,2,4,6）的狭窄文本。

+theme(axis.text.y = element_blank())

我相信图表仍然有意义