Necesito graficar un heatmap cuya escala vaya desde 0 a X valor (X es un valor calculado a partir de los datos y cambia de gráfico a gráfico) y los valores mayores a X sean blancos. En el siguiente ejemplo X vale 600 y todos los valores superiores a 600 aparecen en gris:
El código que uso es:
reshapeddata = melt(events_heatmap)
names(reshapeddata)[3] <- 'Events'
heatmap = ggplot(reshapeddata, aes(X2, X1))+
geom_tile(aes(fill=Events),
color = "white",
lwd = 1,
linetype = 1) +
scale_fill_gradientn(limits=c(0, limit_DMSO),
colors = c("red","yellow","white")) +
scale_y_discrete(limits=rev, expand = c(0, 0)) + scale_x_continuous(expand = c(0,0), breaks=c(0,1,2,3,4,5,6,7,8,9,10,11,12))+
labs(title=paste(Heatmap Events \n), y = "", x = "")+
theme(plot.title = element_text(hjust = 0.5, face = "italic")) +
geom_text(aes(label = round(Events, 1)))
Probé con ggnewscale
pero al no ser compatible con plotly no me sirve esta alternativa.
Necesito alguna solución para este problema que pueda ser corrido con ggplotly
. Muchas gracias!