3

Estoy intentando hacer un gráfico interactivo usando la funcion ggplotly. El resultado no es lo que espero porque no se muestra el mismo grafico.

Mi data es: Image of my Data La modifico en 3 columnas (X1, X2, value) para que sea apropiada para ser graficada con ggplot usando el codigo:

reshapeddata = melt(heatmapdata)

El codigo para plotear es:

heatmap1 = ggplot(reshapeddata, aes(X1, X2))+
  geom_tile(aes(fill=value),
            color = "white",
            lwd = 1,
            linetype = 1) +
  scale_fill_gradientn(limits=c(0, 600),
                       colors = c("red","yellow","white")) +
  scale_x_discrete(expand = c(0, 0)) + scale_y_continuous(expand = c(0,0), breaks=c(0,1,2,3,4,5,6,7,8,9,10,11,12))+
  labs(title=paste(" \n \n Heatmap Events \n\n"), y = "", x = "")+
  theme(plot.title = element_text(hjust = 0.5, face = "italic")) +
  geom_text(aes(label = round(value, 1)))+
  coord_flip()+
  ggnewscale::new_scale_fill() +
  geom_tile(data = filter(reshapedPDCs, value > 600), 
            mapping = aes(fill = value > 600))+
  scale_fill_manual(values = "white") + 
  geom_text(aes(label = round(value, 1)))

Y cuando ploteo heatmap1 obtengo el gráfico que quiero: Heatmap1

El problema está cuando intento convertirlo a gráfico interactivo usando ggplotly con: heatmap2 = ggplotly(heatmap1) . Obtengo un gráfico muy erroneo:

Wrong heatmap Me tira el siguiente error:

Warning messages:
1: In geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]]) :
  geom_NewGeomTile() has yet to be implemented in plotly.
  If you'd like to see this geom implemented,
  Please open an issue with your example code at
  https://github.com/ropensci/plotly/issues
2: In geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]]) :
  geom_NewGeomText() has yet to be implemented in plotly.
  If you'd like to see this geom implemented,
  Please open an issue with your example code at
  https://github.com/ropensci/plotly/issues

Como puedo hacer para que el segundo gráfico heatmap2 se parezca al primero heatmap1?

4

1 respuesta 1

0

El tema que más perplejo me dejaba, es que las geometrías tile y text son bien básicas y soportadas por plotly desde siempre. Finalmente el problema lo tienes con el paquete ggnewscale de Elio Campitelli, que redefine los geoms clásicos en nuevos objetos con el nombre geom_New*, los cuales obviamente no están soportados por plotly Técnicamente se puede decir que ambos paquetes son incompatibles entre si y no podrías usar ggnewscale si piensas integrarlo a plotly.

8
  • Gracias Patricio por tu respuesta. El motivo por el cual usé ggnewscale, es porque necesito que todos los valores menores a X se grafiquen de acuerdo a la escala y que los mayores a X queden en blanco. X en el ejemplo es 600, pero en realidad es una variable que depende de los datos. Tenes idea de cómo puedo resolver esto sin usar ggnewscale para poder usar plotly? el 11 abr. 2022 a las 14:44
  • Por lo que comentas, me parece que no necesitas 2 escalas sino una sola con cierto gradiente de color. Yo te sugiero que vayas un paso atrás, y plantees el problema real y no la solución que intentaste. Hacé una pregunta nueva, agregale un ejemplo de los datos (la salida dput(reshapeddata) la copias a la misma pregunta) y plantea lo que que buscas, por ejemplo "quiero hacer un mapa de calor, con cierta escala de colores pero quiero que lo valores inferiores a X aparezcan en color blanco". el 11 abr. 2022 a las 14:55
  • Muchas gracias Patricio! Voy a intentar hacerlo!! el 11 abr. 2022 a las 18:48
  • Con la solución sin ggnewscale debería funcionar es.stackoverflow.com/a/527455/126758
    – dieghernan
    el 12 abr. 2022 a las 6:22
  • 1
    Hola @PatricioMoracho , como me sugeriste creé una nueva pregunta que potencialmente podría responder mis otras dos preguntas. Te paso el link por si queres seguirla es.stackoverflow.com/questions/527514/… gracias por tu ayuda! el 12 abr. 2022 a las 14:47

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.