echarty sunburst chart

echarty.sunburst.chart.R

#' data from https://github.com/tungmilan
#' see Hierarchies in https://helgasoft.github.io/echarty/uc3.html

DF <- data.frame(
	parents = c("Mid Stream","Mid Stream","Mid Stream","Mid Stream",
					"Mid Stream","Mid Stream","Mid Stream","Mid Stream",
					"Mid Stream","Mid Stream","Mid Stream","Mid Stream",
					"Low Stream","Low Stream",
					"Low Stream","Low Stream",
					"Low Stream","Mac River","Mac River","Mac River",
					"Mac River","Mac River","Mac River","Mac River",
					"Mac River","Mac River","Mac River","Mac River",
					"Mac River","Mid Stream","Mid Stream",
					"Mid Stream","Low Stream","Low Stream",
					"Low Stream","Low Stream",
					"Low Stream","Low Stream","Low Stream",
					"Low Stream","Low Stream",
					"Low Stream","Low Stream",
					"Low Stream","Low Stream","Low Stream",
					"Low Stream","Low Stream",
					"Low Stream","Low Stream",
					"Low Stream","Low Stream","Low Stream",
					"Low Stream","Low Stream",
					"Low Stream","Low Stream","Low Stream",
					"Low Stream","Low Stream",
					"Low Stream","Upp King","Upp King","Upp King",
					"Upp King","Upp King","Upp King","Upp King",
					"Upp King","Upp King","Upp King","Upp King",
					"Upp King","Upp King","Upp King","Upp King",
					"Upp King","Upp King","Upp King","Upp King",
					"Mid King","Mid King","Mid King","Mid King","Mid King",
					"Mid King","Mid King","Mid King",
					"Low King","Low King","Low King",
					"Low King","Low King","Low King",
					"Low King","Low King",
					"Low King","Low King","Low King",
					"Low King","Mid King","Low King",
					"Low King","Low King",
					"Low King","Low King","Low King",
					"Low King","MAC","MAC","MAC","King","King",
					"King","Basin","Basin"),
	labels = c("MAC01","MAC02",
				  "MAC03","MAC04","MAC05","MAC06","MAC07",
				  "MAC08","MAC09","MAC10","MAC11","MAC12","MAC13",
				  "MAC14","MAC15","MAC16","MAC17","MAC18",
				  "MAC20","MAC21","MAC22","MAC23","MAC24","MAC25",
				  "MAC26","MAC27","MAC28","MAC29","MAC30",
				  "MAC32","MAC33","MAC34","MAC35","MAC36","MAC37",
				  "MAC38","MAC39","MAC40","MAC41","MAC42","MAC43",
				  "MAC44","MAC45","MAC46","MAC47","MAC48",
				  "MAC49","MAC50","MAC51","MAC52","MAC53","MAC54",
				  "MAC55","MAC56","MAC57","MAC58","MAC59",
				  "MAC60","MAC61","MAC62","MAC63","King01","King02",
				  "King03","King04","King05","King06","King07",
				  "King08","King09","King10","King11","King12",
				  "King13","King14","King15","King16","King17",
				  "King18","King19","King20","King21","King22",
				  "King23","King24","King25","King26","King27",
				  "King28","King29","King30","King31",
				  "King31c","King36","King37","King38","King39",
				  "King40","King41","King42","King43","King50",
				  "King51","King52","King53","King54","King55",
				  "King56","Mid Stream","Low Stream","Mac River",
				  "Upp King","Mid King","Low King","MAC","King"),
	value = c(16611,1960,8,
				 183,15,0,242,1346,1780,19,1225,107,145,76,
				 10,233,216,14,2,238,103,75,2311,28106,
				 9308,3118,2959,NA,447,1127,64,939,141,
				 37083,NA,27775,3454,551,335,678,2,783,14,
				 367,398,160,184,1492,42,38,1101,4694,465,
				 142,570,2462,72,6,16,237,12356,0,80,2,0,
				 533,2465,3,40,816,187,28,9,87,283,613,
				 1,114,160,40,39,78,88,45,83,579,43,120,
				 227,69,123,118,7,384,5,249,614,37,27,
				 102,0,18339,1027,582,245,25634,27139,162,
				 25626,96298,46681,5461,1075,75090,168605,
				 81626)
)
tmp <- data.tree::FromDataFrameNetwork(DF)
tree_json <- data.tree::ToListExplicit(tmp, unname=TRUE)

library(echarty)
p <- ec.init()
p$x$opts <- list(
	series = list(list(
    type='sunburst', name='top', label=list(rotate='radial'),
	  data = tree_json$children ))
)
p

q <- ec.init()
q$x$opts <- list(
  series = list(list(
    type='treemap', name='top', data=tree_json$children ))
)
q

echarty sunburst chart with data from @tungmilan.
See also Hierarchies demo.