Support ggplot2's custom group labelling

Hi,

I found issues related to ggplot2's legend positioning, but couldn't find any addressing the fact that ggplotly ignores group labels changed by scale_color_discrete (or similar).
In contrast, it is able to handle a change in tick labels done in a similar manner using scale_x_discrete. You can find an example below with the iris dataset.
It would be great if you could add support to this!

# change in tick labels supported
gg <- ggplot(iris, aes(x=Species, y=Sepal.Width)) + 
geom_boxplot() + 
scale_x_discrete(labels=c("a", "b", "c)"))
gg
ggplotly(gg)

# change in group labels not supported
gg <- ggplot(iris, aes(x=Sepal.Length, y=Sepal.Width, group=Species, color=Species)) + 
geom_point() +
scale_color_discrete(labels=c("a", "b", "c"))
gg
ggplotly(gg)

Great work!
Mariana Oliveira

Bắt đầu bằng cách chạy các ví dụ iris được cung cấp với ggplotly và so sánh các nhãn vạch chia được hỗ trợ của scale_x_discrete với các nhãn nhóm không được hỗ trợ của scale_color_discrete. Theo dõi cách ggplotly chuyển đổi các scale của ggplot2 thành dữ liệu chú giải; hoàn tất khi các nhãn nhóm tùy chỉnh như "a", "b" và "c" xuất hiện trong chú giải kết quả.