如何在ggplot中绘制带反转坐标轴的复刻图表？

最近在折腾复刻一篇论文里的图表，可原作者自己都记不清当初是用Excel还是SigmaPlot做的了，完全没参考方向。

我先是用geom_area来做，结果出来的图和目标图差得不是一星半点，完全不对味；后来又试了geom_ribbon和geom_bar，效果还是不符合要求。最头疼的是，目标图里的数据看起来是反转的，我试了好几种方法都搞不定这个效果。

对了，刚才忘了放数据，我把数据用dput导出的内容贴在这里：

structure(list(Depth = c(0L, 5L, 10L, 15L, 20L, 25L, 30L, 35L, 
40L, 45L, 50L, 55L, 60L, 65L, 70L, 75L, 80L, 85L, 90L, 95L, 
100L, 105L, 110L, 115L, 120L, 125L, 130L, 135L, 140L, 145L, 
150L, 155L, 160L, 165L, 170L, 175L, 180L, 185L, 190L, 195L, 
200L), A = c(0, 0.4, 0.8, 1.1, 1.5, 1.9, 2.2, 2.6, 2.9, 3.3, 
3.6, 3.9, 4.2, 4.5, 4.7, 4.9, 5.1, 5.3, 5.4, 5.5, 5.6, 5.6, 
5.6, 5.6, 5.6, 5.6, 5.6, 5.6, 5.6, 5.6, 5.6, 5.6, 5.6, 5.6, 
5.6, 5.6, 5.6, 5.6, 5.6, 5.6, 5.6), B = c(0, 0.2, 0.5, 0.7, 
1, 1.2, 1.5, 1.7, 1.9, 2.1, 2.3, 2.5, 2.6, 2.8, 2.9, 3, 3.1, 
3.2, 3.3, 3.3, 3.4, 3.4, 3.4, 3.4, 3.4, 3.4, 3.4, 3.4, 3.4, 
3.4, 3.4, 3.4, 3.4, 3.4, 3.4, 3.4, 3.4, 3.4, 3.4, 3.4, 3.4), 
    C = c(0, 0.1, 0.3, 0.4, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 
    1.2, 1.3, 1.3, 1.4, 1.4, 1.4, 1.4, 1.5, 1.5, 1.5, 1.5, 1.5, 
    1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 
    1.5, 1.5, 1.5, 1.5, 1.5, 1.5), D = c(0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), class = "data.frame", row.names = c(NA, 
-41L))

有没有大佬能帮我看看怎么调整才能复刻出目标图表的效果呀？

内容的提问来源于stack exchange，提问作者mariachi