在构面网格中将geom_bar强制最小化为最小barheight

Question

具有以下数据：

dat <- data.frame(A = c(1,1,1,1,2,2,2,2), 
                  B = c(1,1,2,2,1,1,2,2), 
                  C = c(1,2,1,2,1,2,1,2), 
                  data = c(4, 7, 6, 8, 4, 6, 7, 10))

我想制作一个构面网格，如下所示：

ggplot(dat, aes(x=C, y=data, group=C, fill=C)) +
  geom_bar(stat="identity", alpha=0.3) +
  facet_grid(B ~ A)

但是，我希望最小的条高取决于特定的方面。特别是在整个行中。我知道如果我不使用刻面，可以采取y = data - min(data)来达到美化的目的，但是我不确定如何在保留刻面的同时表示这一点。我几乎可以肯定ggplot2对此有一个超级直观/简单的解决方案，但是经过一段时间的搜索后，我找不到它。

任何帮助表示赞赏！