在Hadley威克姆的这篇文章的帮助下，你可以得到一个反向的日期时间尺度：

library(scales)
c_trans <- function(a, b, breaks = b$breaks, format = b$format) {
  a <- as.trans(a)
  b <- as.trans(b)
  
  name <- paste(a$name, b$name, sep = "-")
  
  trans <- function(x) a$trans(b$trans(x))
  inv <- function(x) b$inverse(a$inverse(x))
  
  trans_new(name, trans, inverse = inv, breaks = breaks, format=format)

}

rev_date <- c_trans("reverse", "time")

ggplot(MyData, aes(x=Value, y=Date)) +
  geom_point() + 
  scale_y_continuous(trans = rev_date)

以下是情节：

已接受的答案不再适用于我（R版本4.2.1）。解决这个问题的一个方法是稍微修改tidyquant包中的函数coord_x_datetime，以反转y轴的日期时间。下面是一个叫做coord_y_datetime的函数：

coord_y_datetime <- function(xlim = NULL, ylim = NULL, expand = TRUE) {
  if (!is.null(ylim)) {
    ylim <- lubridate::as_datetime(ylim)
  }
  ggplot2::coord_cartesian(xlim = xlim, ylim = ylim, expand = expand)
}

下面是一个可重复的示例：

library(ggplot2)
ggplot(MyData, aes(x = Value, y = Date)) +
  geom_point() + 
  coord_y_datetime(ylim = c(max(MyData$Date), min(MyData$Date)))

创建于2022-11-14带有reprex v2.0.2
正如您所看到的，y轴的日期时间现在是颠倒的。

解决这个问题的一个方法是使用rev（）。;）
在你的情况下...

ggplot(MyData, aes(x=Value, y=rev(Date))) +
  geom_point()