ggplot2 неправильно рендерит с помощью Plotly

Question

Я создал точечный график, используя ggplot2, который работает относительно хорошо.Я хотел бы использовать Plotly, однако, когда я это сделаю - это в конечном итоге нарушает ось Y и делает легенду очень шаткой.Я буду публиковать некоторые до и после ниже, но я очень плохо знаком с обоими и ищу правильное направление.С ggplot2 все в порядке, но добавленная интерактивность сюжета была бы огромной победой для того, что мы делаем.Также странное замечание - возвращенный верхний график, кажется, отрезает график (самое высокое значение - не уверен, почему).Благодарю.

Код:

library(ggplot2)
library(dplyr)
library(plotly)
library(sqldf)
library(tidyverse)
library(lubridate)
library(rio) #lets you use "import" for any file - without using extension name
options(scipen =999) #disable scientific notation



#prepare data:

setwd("C:/Users/hayescod/Desktop/BuysToForecastTracking")
Buys_To_Forecast <- import("BuysToForecastTrack")

colnames(Buys_To_Forecast) <- c("Date", "BusinessSegment", "Material", "StockNumber", "POCreatedBy", "PlantCode", "StockCategory", "Description", "Excess", "QuantityBought", "WareHouseSalesOrders", "GrandTotal", "Comments" )
Buys_To_Forecast$PlantCode <-factor(Buys_To_Forecast$PlantCode) #update PlantCode to factor


#use SQL to filter and order the data set: 

btf <- sqldf("SELECT Date, 
                     SUM(QuantityBought) AS 'QuantityBought', 
                     Comments
              FROM   Buys_To_Forecast 
              GROUP BY Date, Comments
              ORDER BY Date")
#use ggplot:

btfnew <- ggplot(data=btf, aes(x=Date, y=QuantityBought, color=Comments, size=QuantityBought)) + 
  geom_point() + 
  facet_grid(Comments~., scales="free")+ 
  ggtitle("Buys To Forecast Review")+
  theme(plot.title = element_text(hjust = 0.5), 
        axis.title.x = element_text(color="DarkBlue", size = 18), 
        axis.title.y = element_text(color="Red", size = 14))

btfnew #display the plot in ggplot

ggplotly(btfnew) #display the plot in Plotly