R 根据数据设置离散y轴的限制并编辑y轴标注

我正在努力地用ggplot2绘制图表.下面，您可以看到我得到的输出和相关代码: enter image description here个

ggplot(resu_fac_final, aes(x = reorder(species, Delta), y = Delta)) +
  geom_bar(stat = "identity",
           show.legend = FALSE,
           fill = color,     
           color = "white") +
  geom_hline(yintercept = 0, color = 1, lwd = 0.2) +
  geom_text(aes(label = round(Delta, 2), # Text with groups
                hjust = ifelse(Delta < 0, 1.5, -1),
                vjust = 0.5), size = 2.5) +
  xlab("Species") +
  ylab("Expansion and contraction of the climatic niche") +
  coord_flip() +
  theme_minimal()

我希望有一个图表，显示这些蝙蝠物种的分布在不同时期的扩张或收缩.然而，我得到的是一张图表，它确实解释了这些结果，但不是以这样一种说教的方式.有了这些 idea ，我希望它能增强读者的理解力.我在这个论坛上的各种帖子中寻找可以帮助我的东西，但我没有找到.

我想要的是设置限制，可能是使用Scale_x_Display()，但我没有使用它来管理它，以便将x轴从0分隔到2，这样我就可以在左侧使用粉色的值，在右侧使用蓝色的值，如下图所示.此外，我想通过删除下划线并将其设置为斜体来编辑y轴标签.

enter image description here

这是resu_fac_final的dput:

dput(resu_fac_final[1:10, ])
structure(list(species = c("Artibeus_cinereus", "Artibeus_concolor", 
"Artibeus_gnomus", "Artibeus_jamaicensis", "Artibeus_lituratus", 
"Artibeus_phaeotis", "Artibeus_planirostris", "Artibeus_toltecus", 
"Artibeus_watsoni", "Carollia_brevicaudum"), iniDist2 = c(98095, 
69677, 43781, 140175, 157200, 52678, 118224, 15658, 13574, 113735
), iniDist = c(111511, 71610, 61954, 129815, 132053, 50888, 127966, 
22795, 15096, 119665), Delta = c(0.87968899929155, 0.973006563329144, 
0.70666946444136, 1.07980587759504, 1.19043111477967, 1.03517528690457, 
0.923870403075817, 0.686905023031367, 0.899178590355061, 0.950444992270087
)), row.names = c(NA, 10L), class = "data.frame")

有没有可能以某种方式做呢？

预先感谢你的每一次最终帮助.