Translate plotmath expressions

I have 2 issues using function ggplotly in R:

Question 1 What are the ways to keep R plotmath expressions while converting ggplot2 plots to plotly format using function ggplotly?

Now the expressions are converted to [object Object] as in this example below:

library(ggplot2)
library(plotly)

qplot(mpg, wt, data = mtcars) +
    ggtitle(expression(bar(x) == sum(frac(x[i], n), i==1, n)))

ggplotly()

Question 2

How to get rid of double labels in the legend of plotly graph and make them look like in ggplot2 graph? I.e. how to get 6 in stead of (6,6):

qplot(mpg, wt, data = mtcars, colour = as.factor(cyl), fill = as.factor(cyl))

ggplotly()

Bắt đầu bằng cách tái hiện cả hai ví dụ đã được báo cáo với ggplot2 và ggplotly: tiêu đề plotmath trở thành [object Object], và chú giải hiển thị các giá trị bị trùng lặp như (6,6). Truy vết cách ggplotly chuyển đổi các biểu thức plotmath và các scale colour/fill kết hợp, sau đó xác minh rằng các biểu thức được render chính xác và các mục trong chú giải khớp với kết quả của ggplot2.