data(Regions)
Tree <- gvisTreeMap(Regions, "Region", "Parent", "Val", "Fac",
options=list(width=600, height=500,
showScale=TRUE, fontSize=16))
if (FALSE) {
plot(Tree)
}
Run the code above in your browser using DataLab