Вторая ось y исчезает по команде ggplotly с динамическими тиками = true, ggplot2 - PullRequest
Новая
       11

Вторая ось y исчезает по команде ggplotly с динамическими тиками = true, ggplot2

2 голосов
/ 28 апреля 2020

Я создал следующий фрейм данных и связанную диаграмму ggplot в R. Сначала мы импортируем библиотеки, используя 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)

Я прошу кого-нибудь взглянуть и помочь.

...