实际上，还是geom_smooth丢失了日期格式？
实际上，还是geom_smooth丢失了日期格式？
提问于 2022-02-07 04:40:36
我有很多时间系列的情节。下面可以找到一个示例图和代码。我使用ggplot2构建了这个图，并使用ggplotly()使其具有交互性。
但是，平滑曲线上的日期格式会丢失。交互式图表将日期显示为一些数值。
我怎样才能解决这个问题？
非常感谢
structure(list(Date = structure(c(15736, 15764, 15795, 15825,
15856, 15886), class = "Date"), CLI = c(99.93, 100.3, 100.96,
100.71, 100.62, 101.15)), row.names = c(NA, -6L), class = c("tbl_df",
"tbl", "data.frame"))
plot5 <- df %>%
ggplot(aes(x = Date, y = CLI))+
geom_line(size = 0.5, alpha = 0.75, show.legend = FALSE, color = "steelblue4")+
scale_x_date(date_breaks = "6 month", date_labels = "%m/%y")+
theme_pander()+
geom_line(stat='smooth', method = "glm", alpha=0.5, color = "firebrick2", formula = y ~ poly(x, 5))+
geom_ribbon(stat='smooth',method = "glm", se=TRUE,formula = y ~ poly(x, 5), alpha=0.01)+
labs(x = "Date",
y = "Composite Leading Indicator")
ggplotly(plot5)回答 1
Stack Overflow用户
发布于 2022-02-07 05:43:07
根据您的情况调整我在this帖子上的答案，在工具提示中获得日期格式的一个选项是使用text美学手动创建工具提示并将数字转换为适当的日期，如下所示：
plot <- df %>%
ggplot(aes(x = Date, y = CLI)) +
geom_line(size = 0.5, alpha = 0.75, show.legend = FALSE, color = "steelblue4") +
scale_x_date(date_labels = "%m/%y") +
# theme_pander()+
geom_line(aes(text = paste(
"date: ", as.Date(..x.., origin = "1970-01-01"), "<br>",
"y:", ..y..
)), stat = "smooth", method = "glm", alpha = 0.5, color = "firebrick2", formula = y ~ poly(x, 5)) +
geom_ribbon(stat = "smooth", method = "glm", se = TRUE, formula = y ~ poly(x, 5), alpha = 0.01) +
labs(
x = "Date",
y = "Composite Leading Indicator"
)
ggplotly(plot, tooltip = c("text"))
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/71018739
复制
相似问题
日期格式丢失
公式丢失日期格式
For循环日期而不丢失日期格式
虽然AndroidManifest存在，但它还是丢失了
是否丢失了ckeditor源视图格式？
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
