r-第二个y轴在ggplotly命令上消失，dynamicck ticks=true，ggplot2

Question

我在R中创建了以下数据帧和相关的ggplot图表首先，我们使用R 导入库

library(plotly)
library(ggplot2)

接下来我们创建数据帧如下

dataframe_1<-data.frame("Month"=c(1:12))
dataframe_1$Sales<-25*dataframe_1$Month
dataframe_1$Fac1=dataframe_1$Sales/100
dataframe_1$Month<-as.character(dataframe_1$Month)

接下来，我们创建一个基于ggplot的条形图，并将其与折线图相结合，如下所示

p<-ggplot(data = dataframe_1, mapping = aes(x = Month, y = Fac1))+geom_bar(data = dataframe_1, mapping = aes(x = Month, y = Sales/100, fill = "#82e600", text=paste0("Sales:", Sales)),stat="identity")+geom_line(mapping = aes(x = Month, y = Fac1, group = 1))+geom_point(mapping = aes(x = Month, y = Fac1, group = 1, text=paste0( "Factoid:", Fac1)),    inherit.aes = FALSE)+scale_y_continuous(sec.axis = sec_axis(~.*100, name = "Sales"))+labs(fill =  "Sales")

当我们渲染图p时，我们得到一个有两个y轴的图。然而，当我们将dynamicticks渲染为true时，第二个y轴会消失

ggplotly(p = p, tooltip = "text", dynamicTicks = TRUE)

我请求有人帮忙看看。

Answer 1

我认为我们必须在ggplotly对象上添加trace或plot_ly对象。在ggplotly上添加第二个Y轴。此解决方案可能适用于某些应用程序。