r - R Ggplot ggiraph - 两点之间的交互式线显示值

Question

我正在尝试使用 geom_line_interactive 渲染交互式绘图。如下例所示，geom_line_interactive 仅显示整个图形中的第一个 x 值。有没有办法基本上显示数据集中给出的最接近的 x 值？

library(ggplot2)
library(ggiraph)
if( requireNamespace("dplyr", quietly = TRUE)){
  recent <- economics[economics$date > as.Date("2013-01-01"), ]
  gg = ggplot(recent, aes(date, unemploy)) +
    geom_step_interactive(aes(tooltip = date, data_id = date))
  x <- girafe(ggobj = gg)
  x <- girafe_options(x = x,
                      opts_hover(css = "stroke:red;") )
  if( interactive() ) print(x)
}

在图片中，我希望在工具提示中看到“2013-07”