在镜像直方图的负y轴上计数标签

Question

我有一张表记录了基因的表达并将其分为必需或不必需的两组 我想在镜像直方图中显示该频率，但无法在y轴负方向设置计数标签

这是我的代码

ggplot(whole_table_ess_1,aes(x=FPKM)) +
  geom_label( aes(x=70, y= 1000, label="Essential"), color="#69b3a2") + 
  geom_histogram(aes(y = ..count..), fill="#69b3a2", breaks=c(ratio,100), data = ~ subset(., essential == "E")) +  
  stat_bin(geom="text", aes(label=..count..), vjust = -1, breaks = c(ratio,100), data =  ~ subset(., essential == "E")) + 
  geom_histogram(aes(y =-..count..),  fill= "#404080", breaks=c(ratio,100), data = ~ subset(., essential == "NE")) +
  stat_bin(geom="text", aes(label=..count..), vjust = 1,  breaks = c(ratio,100), data =  ~ subset(., essential == "NE")) +
  geom_label( aes(x=70, y= -1000, label="Non-essential"), color="#404080") +
  scale_y_continuous(breaks = 500 *     -2:3, 
                 labels = 500 * c(2:1, 0:3), limits = c(-1000,1500))

和绘图结果

我尝试在stat_bin中设置y =-.. count ..但失败 希望有人可以告诉我为什么