Não sei por que, mas meu gráfico de barras empilhadas desaparece em vez de cair no eixo quando a legenda é clicada. Anexei uma captura de tela do exemplo que copiei do site de plotagem e o código é o seguinte:

library(plotly)

DF <- read.table(text="Rank F1     F2     F3
1    500    250    50
2    400    100    30
3    300    155    100
4    200    90     10", header=TRUE)

library(reshape2)
DF1 <- melt(DF, id.var="Rank")

p <- ggplot(DF1, aes(x = Rank, y = value, fill = variable)) +
  geom_bar(stat = "identity")

p <- ggplotly(p)

Gráfico de barras empilhadas desaparece quando a legenda é clicada

Alguém pode me ajudar com isso?