Estoy tratando de usar ggplotly para agregar interactividad a mi gráfico ggplot. He intentado ejecutar esto en RStudio y desde la línea de comandos, con los mismos resultados.

Datos

library(plotly)
df1 <- as.data.frame(list('x'=1:100,'y'=1:100,'lw'=abs(rnorm(100))))
b <- ggplot(data=df1, aes(x=x,y=y)) + geom_line(size=df1$lw)

Si muestrob normalmente, es decir,> b, Obtengo una trama correcta

Sin embargo, si luego ingresoggplotly(), Obtengo la trama a continuación:

Utilizando mis datos reales, los resultados son aún peores. Debajo hay unaplot(), que es correcto, seguido deggplotly()

¿Alguna idea de cómo puedo mostrar esto correctamente?