R 为什么'；是否在悬停时正确显示日期？

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

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

custData$date%摘要（收入=总和（lineTotal））%>%
ggplot（aes（x=日期，y=收入））+geom_线（）+geom_平滑（方法='auto'，se=FALSE）+实验室（x='date'，y='收入（£），标题='按日期的总体收入趋势'）
)
)
}
)

---

我认为您需要在

ggplot

的

aes

中定义

text

…%>%ggplot（aes）（x=日期，y=收入，
text=粘贴（'日期：'，作为.Date（日期），
“
收入：”，收入））+
几何线（）
...

可能是日期转换不正确，能否共享或复制数据？请尝试使用

devtools:：install\u github（“tidyverse/ggplot2”）

下载最新版本的

ggplot2

。我最近遇到了一个类似的问题，通过从

2.2.1

（CRAN版本）升级到

2.2.1.9000

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')
            )
       )
   }
)