第二个 y 轴在 ggplotly 命令上消失，dynamick 刻度 =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 轴的图。然而，当我们将动态刻度渲染为 true 时，第二个 y 轴消失

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

我请求有人看一下并提供帮助。

Answer 1

我相信我们必须在对象上添加跟踪或plot_ly对象ggplotly。在 ggplotly 上添加第二个 Y 轴。该解决方案可能适用于某些应用程序。