ggplotly does not support multiple aesthetics in a scale_* function

```
p <- ggplot(penguins) +
  geom_histogram(aes(
    x = body_mass_g,
    col = species,
    fill = species,
  ), 
  alpha = 0.5
  ) +
  scale_color_manual(values = c("red", "blue", "green"), 
                     aesthetics = c("colour", "fill"))


p

plotly::ggplotly(p)
```
