r语言 - ggplotly 无法正确绘制geom_ribbon

Question

当我在geom_ribbon中将 ggplot 图转换为绘图对象时，我遇到了问题。 [这是我使用ggplotly后得到的][1]

这就是我在使用 ggplotly 后想要得到的

这是我的代码：

geom_line(aes(y=fitted),linetype=2,size=1) +
geom_ribbon(aes(ymin=lower,ymax=upper,alpha=0.25)) +
geom_point(aes(color=anom,size=anom,text = paste("Fecha:", sup, "nNúmero de carpetas:", delitos))) +
scale_size_discrete(range=c(1,3)) +
scale_color_manual(values=c("royalblue","red")) +
scale_x_date(date_breaks = "1 week") +
labs(title=aux_titulo,y="Carpetas de investigación") +
theme_bw() +
theme(plot.title=element_text(hjust=0.5,face="bold"),
axis.title.y = element_text(face="bold"),
axis.title.x = element_blank(),
legend.position = "none",
legend.title = element_blank(),
legend.text = element_text(face="bold"),
axis.text = element_text(face="bold"),
axis.text.x = element_text(angle=90,hjust=1,vjust=0.5))

g <- ggplotly(plot_aux,tooltip = c("text"))  %>% config(displayModeBar = F) %>% layout(xaxis=list(fixedrange=TRUE)) %>% layout(yaxis=list(fixedrange=TRUE),legend = list(
orientation = "h",x = 0.3, y =-0.3))
g```

Answer 1

[这是我使用 ggplotly1 时得到的