ggplot中反转POSIXct时间轴旧方案失效问题求助

在R 4.2.2版本中，运行旧版Stack Overflow上的POSIXct时间轴反转代码时，出现错误提示：Error: Invalid input: time_trans works with objects of class POSIXct only，即使确认数据的Date列已是POSIXct类型，问题依然存在。

测试数据 #

MyData <-
  structure(list(Date = structure(c(1492979809.99827, 1492602845.68722, 
  1493093428.90318, 1492605578.0691, 1492961342.65056, 1492771976.83545, 
  1493020588.88485, 1493057018.85104, 1492852011.23873, 1492855996.55059
  ), class = c("POSIXct", "POSIXt")), Value = c(4.52885504579172, 
  6.0024610790424, 8.96430060034618, 7.06435370026156, 5.08460514713079, 
  3.47828012891114, 6.29844291834161, 0.898315710946918, 1.44857675535604, 
  5.74641009094194)), .Names = c("Date", "Value"), row.names = c(NA, 
  -10L), class = "data.frame")

旧解决方案代码（在R 4.2.2中失效） #

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)

解决办法 #

问题根源在于旧代码使用scale_y_continuous处理POSIXct类型数据，且自定义trans未正确处理POSIXct与数值类型的转换。以下是两种有效修复方案：

方案1：修复自定义trans并使用datetime轴 #

修改自定义trans函数，使其适配POSIXct类型的转换逻辑，同时使用scale_y_datetime替代scale_y_continuous，匹配POSIXct数据类型：

library(ggplot2)

# 修复后的自定义组合转换函数
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 = "-")

  # 转换函数：先将POSIXct转为数值，再执行组合转换
  trans <- function(x) {
    if (inherits(x, "POSIXct")) {
      x_num <- as.numeric(x)
      a$trans(b$trans(x_num))
    } else {
      a$trans(b$trans(x))
    }
  }
  
  # 逆转换函数：将数值转回POSIXct类型
  inv <- function(x) {
    res_num <- b$inverse(a$inverse(x))
    as.POSIXct(res_num, origin = "1970-01-01")
  }

  trans_new(name, trans, inverse = inv, breaks = breaks, format = format)
}

# 创建反转时间轴的转换规则
rev_date <- c_trans("reverse", "time")

# 绘图：使用scale_y_datetime适配POSIXct类型
ggplot(MyData, aes(x=Value, y=Date)) +
  geom_point() + 
  scale_y_datetime(trans = rev_date)

方案2：简化的数值转换法 #

如果不想修改自定义函数，可直接将POSIXct转为数值后反转，再通过轴标签函数还原时间格式：

library(ggplot2)

ggplot(MyData, aes(x=Value, y=-as.numeric(Date))) +
  geom_point() +
  scale_y_continuous(
    labels = function(x) as.POSIXct(-x, origin = "1970-01-01"),
    name = "Date"
  )

两种方案都能在R 4.2.2中正常运行，实现POSIXct时间轴的反转效果。

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