# NOT RUN {
library("treemap")
library("viridis")
data(GNI2014)
head(GNI2014)
tm <- treemap(GNI2014,
index = c("continent", "iso3"),
vSize = "population", vColor = "GNI",
type = "comp", palette = rev(viridis(6)),
draw = FALSE
)
hctreemap(tm, allowDrillToNode = TRUE, layoutAlgorithm = "squarified") %>%
hc_title(text = "Gross National Income World Data") %>%
hc_tooltip(pointFormat = "<b>{point.name}</b>:<br>
Pop: {point.value:,.0f}<br>
GNI: {point.valuecolor:,.0f}")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab