R中barplot中的y轴倒置

Question

我正在尝试创建一个深度图作为时间的函数，并将y轴作为倒数。

以下是数据以及我已经尝试过的内容：

print(time)   
     X TIMEBIN    Depth       sd
1   1    0:00 18.00406 2.781441
2   2    1:00 17.96074 2.817540
3   3    2:00 17.97180 2.778820
4   4    3:00 18.01903 2.782083
5   5    4:00 18.00780 2.734043
6   6    5:00 18.17569 2.636813
7   7    6:00 18.68155 2.614985
8   8    7:00 18.69972 2.979700
9   9    8:00 18.52856 3.122060
10 10    9:00 18.55019 3.143108
11 11   10:00 18.51772 3.269256
12 12   11:00 18.61536 3.191887
13 13   12:00 18.66978 3.173669
14 14   13:00 18.61723 3.231002
15 15   14:00 18.55546 3.265940
16 16   15:00 18.58414 3.265866
17 17   16:00 18.50632 3.282407
18 18   17:00 18.39582 3.261294
19 19   18:00 18.61803 3.119812
20 20   19:00 18.68454 2.737240
21 21   20:00 18.66503 2.486053
22 22   21:00 18.11435 2.655190
23 23   22:00 17.98060 2.692461
24 24   23:00 17.97625 2.772666


barplot(time$Depth,beside=TRUE, ylim=c(21,18),ylab="Depth (m)", xlab='Time')

plot(time$Depth~time$TIMEBIN,type='h', ylim=rev(c(18,21)),ylab="Depth (m)", xlab='Time')

我只是试图使条形图在21处附着到图形的底部，并使x轴显示为1:24，但我尝试过的其他方法似乎都没有用，这些图形是最近的我可以得到。

这就是我不断得到的：

这就是我想要的：

有什么建议吗？