为什么在悬停时没有正确显示日期？

Question

我正在使用闪亮的包创建一个仪表板。其中一个图表（应该在悬停时显示日期）不会这样做，而是显示日期的十进制值。 日期保存在as.Date（）函数的'date'变量中：

custData$date <- as.Date(custData$date, "%m/%d/%Y")                

用于显示情节的Server.R代码：

output$sidePlot2 <- renderPlotly({print(ggplotly(custData %>%
       group_by(date) %>% summarise(revenue = sum(lineTotal)) %>%
            ggplot(aes(x = date, y = revenue)) + geom_line() + geom_smooth(method =                  'auto', se = FALSE) + labs(x = 'Date', y = 'Revenue (£)', title =                       'Overall Revenue Trend by Date')
            )
       )
   }
)

Answer 1

我认为您需要在text的{​​{1}}内定义aes。

ggplot