调整刻度以适应ggplot2中的多个不同图

Question

我需要根据x和y轴的几种类别绘制预测的模式。 这是我正在使用的脚本：

p <- ggplot(data = df2, aes(x = 1, y = value, fill = variable, line=1))
p <- p + geom_bar(stat = "identity")
p <- p + facet_grid(laengeKlasse ~ hsiKlasse)
p <- p + scale_fill_manual(values=COLS)
p <- p + scale_x_continuous("HSI class") +
  scale_y_continuous("Predicted weight (g) per length class")
p <- p + theme(axis.text.x=element_blank(),
      axis.ticks.x=element_blank())
p

如何使y轴上的比例适应实际数据，以使上部图中的数据更清晰可见？