Plotly悬停无法正常显示日期？Shiny仪表板日期显示异常求助

这个问题我之前也碰到过，是ggplotly处理Date类型时的一个常见小坑！虽然你已经用as.Date()把日期转成了标准的Date类型，但ggplotly在转换ggplot对象时，会默认把Date类型解析成它的底层十进制数值（也就是从1970-01-01开始计算的天数），所以悬停时才会显示那些奇怪的数字。下面给你两种实用的解决方案：

方法一：自定义悬停文本（推荐） #

直接在ggplot的aes()里手动定义悬停内容，明确指定日期的显示格式，然后让ggplotly只展示这个自定义文本。修改你的Server.R代码如下：

output$sidePlot2 <- renderPlotly({
  # 先预处理数据，让代码更清晰
  plot_data <- custData %>% 
    group_by(date) %>% 
    summarise(revenue = sum(lineTotal))
  
  # 构建ggplot对象，添加自定义text参数
  p <- ggplot(plot_data, aes(
    x = date, 
    y = revenue,
    # 自定义悬停文本，按你需要的格式显示日期
    text = paste("Date:", format(date, "%m/%d/%Y"),
                 "<br>Revenue:", revenue)
  )) +
    geom_line() # 这里替换成你实际用的几何对象，比如geom_bar()
  
  # 指定tooltip只显示自定义的text内容
  ggplotly(p, tooltip = "text")
})

这种方法的好处是直观灵活，你可以随时调整悬停时展示的信息，比如添加更多统计指标。

方法二：修改Plotly对象的底层数据 #

如果不想改动ggplot的定义，也可以在ggplotly转换完成后，手动修正悬停文本的格式：

output$sidePlot2 <- renderPlotly({
  plot_data <- custData %>% 
    group_by(date) %>% 
    summarise(revenue = sum(lineTotal))
  
  # 先正常生成ggplot和ggplotly对象
  p <- ggplot(plot_data, aes(x = date, y = revenue)) +
    geom_line()
  ply <- ggplotly(p)
  
  # 把底层的十进制数值转回Date类型，再格式化替换悬停文本
  ply$x$data[[1]]$text <- paste(
    "Date:", format(as.Date(ply$x$data[[1]]$x, origin = "1970-01-01"), "%m/%d/%Y"),
    "<br>Revenue:", ply$x$data[[1]]$y
  )
  
  ply
})

额外检查点 #

最后别忘了确认你的custData$date确实是Date类型，可以在控制台运行str(custData$date)查看，输出应该显示Date[1:xxx], format: "YYYY-MM-DD"，如果是字符型的话要先确保转换成功哦。

内容的提问来源于stack exchange，提问作者Danish Zahid Malik