I am looking to get this gradient colors on the map:
ramp <- colorRamp(c("royalblue4", "white"))
ramp.list <- rgb( ramp(seq(0, 1, length = 15)), max = 255)
But also, and more important, I am looking to add plotly charactheristics to the graph (specially hovering text output). This is my data:
structure(list(V1 = structure(c(9L, 8L, 4L, 7L, 2L, 6L, 1L, 3L,
5L, 10L, 13L, 11L, 12L), .Label = c("Apple", "Avocado", "Banana",
"Carrot", "Mango", "Mushroom", "Onion", "Orange", "Pineapple",
"Strawberry", "Sweet-lemon", "Watermelon", "Wildberry"), class = "factor"),
V2 = structure(c(4L, 3L, 9L, 11L, 12L, 2L, 1L, 6L, 10L, 5L,
7L, 8L, 1L), .Label = c("23", "24", "36", "42", "43", "46",
"48", "52", "56", "61", "82", "94"), class = "factor")), class = "data.frame", row.names = c(NA,
-13L))
And this is what I've tried:
library(ggplot2)
library(plotly)
ramp <- colorRamp(c("royalblue4", "white"))
ramp.list <- rgb( ramp(seq(0, 1, length = 15)), max = 255)
g <- ggplot(dtd7, aes(area = n, fill = topic, label = as.character(topic))) +
geom_treemap()+
geom_treemap_text(fontface = "italic", colour = "white", place = "centre") +
theme(legend.position = "none")
ggplotly(p)