我正在使用R和ggplot2，我想绘制一个在y轴上有2个不同范围的条形图 . 具体来说，我希望0到65具有与0到-0.0650大致相同的大小条 . 我正在使用大型数据集，但数据采用如下形式：

State Metric Value
AK    A      -0.0560
AL    A      -0.0600
AR    A      -0.0520
AK    B      46
AL    B      43
AR    B      39

这是我到目前为止所获得的代码，并且所有数据都存在，但负y轴非常小，值不可见 .

p <- ggplot(alcohol, aes(x= State, y= Value, fill= Metric)) + 
  geom_bar(stat="identity") +
  geom_text(aes(label= Value), vjust= -0.3, size= 2) +
  scale_y_continuous(expand= expand_scale()) +
  geom_text(aes(x=1, y= 65, label=" "), vjust=-1)

我玩过scale_y_continuous，scale_y_discrete，限制，休息等等，我似乎无法弄清楚如何使条形负y轴更加突出 . 有小费吗？

r ggplot2 plot range scale